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1. QU'EST-CE 
QU’UN JEU D’AVENTURE ? 


M LES DIVERS TYPES DE JEUX 


Les jeux proposés pour les ordinateurs peuvent essentiellement être 
classés en trois catégories : 


Les jeux d'arcade 


Ce sont des jeux d’adresse axés sur le réflexe et dans lesquels un 
poignet souple et un joystick bien huilé priment sur la réflexion 
(Casse-brique, Tennis, Star invader, Pack man, etc.). 

La qualité principale de ce type de jeu étant la rapidité d’exécution, 
il peut difficilement tourner sous BASIC pur. Le langage privilégié à 
utiliser pour le programmer reste donc l’assembleur. 


Les jeux d'aventure et de rôle 


Le joueur incarne un personnage auquel il est confié une mission. 
Il doit parcourir un chemin plus ou moins complexe, peuplé d’embüûches, 
et découvrir certains objets ou effectuer certaines actions qui lui 
permettront de poursuivre sa route avec le maximum de sécurité 
jusqu’au but qui lui a été fixé. De plus, si tout au long de la partie 
le joueur doit créer avec intelligence et d’une manière judicieuse son 
propre environnement physique, intellectuel et matériel, cela devient 
un jeu de rôle (Donjons et Dragons, etc.). 

Pour ce type de jeu, il n’est pas nécessaire d’obtenir une rapidité 
d'exécution aussi grande que pour les jeux d’arcade. Ils peut donc être 
programmé et exécuté sous BASIC. Cependant, certaines parties du 
programme devront être organisées afin d’obtenir une rapidité d’exécu- 
tion compatible avec la patience ergonomique humaine. 


Les jeux de stratégie 


Morpion, dames, échecs, etc. Malgré une programmation en assem- 
bleur quasi obligatoire, le temps de réflexion de l’ordinateur (nécessaire 
avant qu’il puisse jouer son coup) est parfois très long, surtout s’il 
doit prévoir plusieurs coups à l’avance. Contrairement à ce que l’on 
pourrait penser, ce temps mort (s’il n’est pas exagéré) n’est pas toujours 
un handicap, car il peut simuler le temps de réflexion d’un adversaire 
réel et permet au joueur humain de faire l’inventaire des coups possibles 
à venir et de préparer leurs parades. 


M CONSTITUTION D’UN JEU D’AVENTURE 


Un jeu d’aventure est principalement constitué de deux parties : le 
jeu en lui-même, avec son scénario, son plan et ses actions, et une 
partie communication homme-ordinateur appelée analyse de syntaxe. 


Le scénario 


C’est dans cette partie que toute l’imagination délirante et la faconde 
débordante du programmeur pourront enfin assouvir une passion d’en- 
fance (et néanmoins refoulée) de scénariste. Cela peut aller du preux 
chevalier devant parcourir les souterrains d’un château médiéval pour 
aller s’enrichir d’un trésor ou délivrer une gente damoiselle (selon la 
sensibilité du moment) au valeureux astronaute devant découvrir dans 
un recoin perdu d’univers le schtroumpfonium vital pour l’avenir de 
sa planète. 

Sauf si vous êtes le super-dieu de la littérature, et de surcroît 
amoureux de Calliope et de Polymnie, donc capable de redonner du 
brillant au moindre poncif, nous vous déconseillons d’utiliser les 
thèmes évoqués ci-dessus : ils ont été largement pillés par les centaines 
d'auteurs de milliers de jeux d’aventure aux temps héroïques du début 
de l’informatique familiale. 

Plus simplement, pour ce jeu, nous vous proposons de choisir une 
histoire inspirée des Trois Mousquetaires et des ferrets de la reine. 


Le terrain de jeu 


Il s’agit du plan de l’endroit où évolueront les personnages. Il est 
constitué d’une succession de lieux précis reliés entre eux par des 
“chemins”. Bien entendu, on ne peut passer d’un lieu à un autre que 
si l’accès est autorisé (chemin existant et, éventuellement, accessible 
sous certaines conditions). 

Pour des raisons d’intérêt du jeu, de programmation et surtout de 
place mémoire, il est conseillé de ne pas réaliser un plan trop compliqué. 
Compte tenu de la capacité mémoire limitée des ordinateurs, le plan 
que nous vous proposons plus loin nous semble d’une taille maximale 
pour un jeu classique. 

De toute façon, et d’une manière générale, compte tenu de la place 
mémoire disponible, complexité du plan et nombre d’actions sont 
inversement proportionnels : un plan simple autorisera un grand nombre 
d’actions et inversement. À la limite, dans le premier cas, l’unique 
intérêt du jeu sera de trouver la sortie du labyrinthe (jeu de réflexion), 


tandis que dans le second cas, on se rapprochera d’un jeu de rôle. 
C’est donc, avant toute chose, une question de choix. 


Les actions 


Il s’agit du scénario détaillé et exhaustif de toutes les actions et de 
tous les cas possibles, qu’ils soient autorisés ou non, concernant tous 
les lieux définis dans le plan. 

Là encore, il faut éviter le piège de la multiplicité trop importante 
d’actions complexes, hermétiques ou ésotériques. En effet, si, pour le 
concepteur, la solution paraît évidente, c’est parce qu’il connaît sur le 
bout des doigts, pour l’avoir créé et constamment modifié, ce qu’il 
faut faire et ne pas faire pour arriver au but. Le joueur, lui, ignore 
tout, y compris le plan. Si vous ne voulez pas que votre œuvre finisse 
aux oubliettes avant que quelqu'un ait trouvé la solution, il faut 
constamment avoir à l’esprit, lors de la conception, qu’un jeu d’aventure 
(ou de rôle) est et doit rester avant toute chose un jeu de réflexion et 
d'intelligence et non pas une devinette à tiroirs complètement insoluble. 

Il est évident que le scénario, le plan du terrain de jeu et la liste 
des actions sont intimement liés les uns aux autres. Ils seront donc 
inventés, étudiés et réalisés tout à fait conjointement. 


L'analyse de syntaxe 


Pour le joueur, c’est le moyen de communiquer ses intentions 
d’action à l’ordinateur. C’est aussi, pour la machine, le moyen de 
comprendre l’intention du joueur afin de réaliser l’action du joueur. 

La procédure de décryptage d’une phrase est pratiquement identique 
à celle employée inconsciemment par le cerveau humain : tous les 
mots d’une phrase à analyser sont comparés, l’un après l’autre, aux 
mots d’un dictionnaire déjà existant en mémoire, jusqu’à l’obtention 
d’une occurrence. Si elle se produit, une action est décidée en fonction 
de la définition de ce mot. Si aucun mot similaire n’existe dans le 
dictionnaire, la phrase restera obscure et aucune action ne pourra être 
effectuée. 

Plus le dictionnaire est important, plus les possibilités de dialogue 
homme-machine seront riches, donc intéressantes. Cette possibilité 
sera toutefois réduite par la place mémoire disponible pour enregistrer 
un tel dictionnaire. 

Bien entendu, une analyse de syntaxe peut être plus ou moins 
complexe : cela peut aller de l’acceptation d’un mot unique pour la 


réponse du joueur à un système expert avec recherche de synonymes, 
correction automatique des fautes d’orthographe ou encore mise à jour 
du dictionnaire par l’ordinateur. De nos jours, pour qu’un jeu d’aventure 
reste compétitif, l’analyse de syntaxe doit être suffisamment évoluée 
pour permettre d’entretenir un dialogue proche de la réalité, sans 
imposer trop de contraintes. Enfin, la recherche d’occurrences peut se 
faire par balayage systématique du dictionnaire, recherche dichotomique, 
etc. Là encore, il sera question d’encombrement mémoire. 


2. LE CADRE DU JEU 


M LE SCÉNARIO 


Il s’agit donc d’une histoire inspirée des Trois Mousquetaires. “Il 
était une fois” une charmante reine qui était aimée d’un beautiful 
duke ! Afin de lui faire comprendre qu’il ne lui était pas tout à fait 
indifférent, cette reine lui a offert ses ferrets qu’il a amoureusement 
rapportés chez lui, là-bas, en Angleterre. Cette belle histoire aurait pu 
s’arrêter là, mais voilà-t-il pas qu’un grand jaloux de cardinal, prévenu 
par son espionne préférée, ourdit un sombre complot afin de confondre 
l’infidèle. Il cafarda vilainement au royal mari qui demanda à sa non 
moins royale dulcinée de lui montrer les fameux bijoux. Un tantinet 
gênée, elle lui répondit que puisqu'il en était ainsi, elle les porterait 
lors du prochain bal de la cour. Ils se séparèrent donc sur ce compromis. 
La reine fit immédiatement appel à ses mousquetaires bien aimés et 
les envoya en mission secrète à Londres afin de lui ramener les précieux 
ferrets. Bien entendu, ces joyeux drilles menèrent à bien cette délicate 
mission et l’honneur fut sauf ! 

Tel est le résumé de la “véritable” histoire rapportée par Alexandre 
Dumas. Tout d’abord, nous ne conserverons de cette anecdote que 
l’essentiel : d’Artagnan est chargé par la reine d’aller récupérer les 
ferrets au palais de Buckingham et de les lui rapporter dans un délai 
que nous fixerons à trois jours. 

A partir de là, nous allons nous permettre quelques incartades. Au 
début du jeu, d’Artagnan est seul dans sa chambre et il ne sait rien 
de ce qui l’attend. Il doit donc trouver et lire une convocation, obtenir 
de l’argent, prendre un cheval, inviter ses amis à le suivre et aller à 
Versailles rencontrer la reine. Celle-ci lui donnera alors le véritable 
objet de sa mission. Les quatre amis vont donc devoir traverser la 
Manche, aller à Londres et rencontrer le duc. Lorsqu'ils l’auront 
convaincu de leur remettre les ferrets, ils n’auront plus qu’à refaire 
le chemin en sens inverse et rapporter les précieux objets à leur ancien 
propriétaire. 

En lisant ce scénario, tout a l’air enfantin. En fait, comme nous le 
verrons en détail dans le chapitre donnant la description des actions, 
nous allons glisser pas mal de graviers dans les sabots des étalons et 
moult peaux de bananes sous les cothurnes de leurs cavaliers. 


M LE TERRAIN DE JEU 


Le terrain de jeu est composé de deux grandes parties : les lieux 
situés en France et ceux situés en Angleterre, séparés par le trajet en 


mer. Le plan de ce terrain est présenté en Figure 1 pour la partie 
française et en Figure 2 pour la partie anglaise. 


LES LIEUX 


Il est prudent, si l’on veut éviter d’avoir à le modifier sans cesse, 
de ne pas faire un plan sans penser aux actions générales qui seront 
à effectuer dans chaque lieu, ou, au contraire, sans définir un lieu en 
fonction d’une action originale. Le plan du terrain de jeu se fera donc 
en imaginant déjà des actions ou des conditions rudimentaires. 

Les pièges seront de deux sortes : ceux qui ne feront perdre que 
du temps et ceux qui seront fatals. On pourra même scinder la seconde 
catégorie en trois : les pièges fatals sans condition préalable et à effet 
immédiat, ceux à effet retardé, donc avec condition préalable, et enfin 
les pièges fatals sans effet apparent, qui autoriseront la poursuite du 
jeu sans pouvoir cependant conclure. 

Les actions ou conditions seront précisées en détail dans le chapitre 
Actions. Pour l’instant, et d’une manière générale, nous avons imaginé 
pour vous les lieux suivants : 


La chambre de d’Artagnan (17) 


C’est le point de départ. Notre héros y trouvera d’abord la description 
de la première partie de sa mission, puis les premiers objets nécessaires 
à son accomplissement. Ne pas posséder ces objets n’amènera rien 
dans l’immédiat, mais constituera un piège fatal à effet retardé. 


Rue de Trousse-Chemise (1) 


Elle sert de carrefour dès la sortie de la chambre. On pourra y 
mettre des créanciers pour empêcher d’Artagnan de sortir ou d’entrer 
normalement dans sa chambre. 


L’'écurie (21) 


Étant donné qu’à cette époque on ne se déplaçait qu’à cheval, il 
sera obligatoire, si l’on veut arriver à temps, de s’en procurer un parmi 
plusieurs. Bien entendu, cela fera l’objet de pièges fatals à effet retardé. 


L'échoppe de l’usurier (22) 


Même à cette époque, on n’a rien gratuitement. Nous imaginerons 
donc un système de paiement pour des services ou des objets utiles 
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Figure I : Plan du jeu (partie française). 
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Figure 2 : Plan du jeu (partie anglaise). 


et surtout inutiles. L’échoppe de l’usurier a donc été créée afin d’obtenir 
juste les subsides nécessaires. Ce sera le seul lieu du jeu dans lequel 
on pourra avoir de l’argent. Il faudra penser aux pistoles françaises, 
mais aussi aux livres anglaises. 


L’estaminet (23) 


C’est là que d’Artagnan retrouvera ses amis et peut-être aussi, 
pourquoi pas, quelques gardes du cardinal... 


La maison de la veuve (18) 


Bien tentante, mais elle ne servira à rien ! C’est un cul-de-sac. Il 
faut bien tromper le joueur ! Elle fera perdre du temps si l’on y entre. 


On pourra même y prévoir un piège fatal immédiat sans condition 
préalable. 


La campagne (33) 

Elle sert de carrefour. Généralement on y trouve des fleurs. Qui dit 
fleurs dit bouquet et aussi une dame à qui les offrir pour obtenir ses 
grâces. (voir secrétariat du duc). On prévoira trois endroits dans 
lesquels on pourra se procurer ces fleurs et un seul sera le bon. 

La cour de Versailles (31) 


Elle sert aussi de carrefour. On pourra y mettre une condition pour 
aller vers le boudoir de la reine. 


Les cuisines (24) 


Il s’agit d’une impasse pour perdre un peu le joueur. Rien d’intéressant 
sinon des actions inutiles et n’amenant rien d’autre qu’une perte de 
temps préjudiciable. 

La salle des gardes (25) 


Rien d’intéressant non plus : il y aura des gardes du cardinal, ennemis 
jurés des mousquetaires. donc éventuellement un combat gratuit en 
perspective... 

Le boudoir de la reine (19) 


M. de Lapalisse dirait que c’est là qu’on y rencontrera la reine ! 
C’est la première étape importante à atteindre. La “première dame de 


— 20 -— 


France” y confiera le véritable objet de la mission. Mais... on n’approche 
pas une reine si facilement ! 


La “Jument bleue” (38) 

On l’a prévu en tant que lieu trompeur. On pourra y faire certaines 
actions, en fonction du cheval choisi, mais cela ne sera qu’une illusion. 
On y prévoira donc une issue fatale sans effet apparent. 

Calais (34) 


C’est le lieu d'embarquement pour l’Angleterre. Il faudra y prévoir, 
bien entendu, certaines conditions de paiement, d'embarquement ou 
simplement d’accès. 


La mer 

On ne s’y arrêtera pas. Nous mettrons simplement une condition 
de poursuite avec issue fatale à effet immédiat ou sans effet apparent. 
Douvres (35) 

C’est le symétrique de Calais. Pour le retour, nous retrouverons 
donc à peu près les mêmes types de conditions que pour l’aller. 
Le bureau des douanes (27) 


Il faudra y demander une autorisation. Sans cette autorisation on 
ne pourra pas ultérieurement continuer son chemin dans la rue de 
Londres. 


Le restaurant (26) 

Tout mousquetaire normalement constitué doit aussi manger ! Sinon 
il s’agira d’un piège fatal à effet retardé. 
Le champ (36) 

Dans un champ, en principe, il y a des fleurs. (voir la campagne). 
La grange (28) 


Si l’on ne peut pas vivre sans manger, on ne peut pas non plus 
vivre sans dormir... La grange sera là pour cela. 


La rue de Londres (37) 


Comme pour Calais, Douvres et la mer, c’est là que s’effectueront 
les tests sur certains pièges à effet retardé semés précédemment. En 
outre, on y mettra certaines conditions de poursuite. 


La cour de Buckingham (32) 


Il s’agit aussi d’un carrefour qui ressemble à la cour de Versailles. 
Pour être original, nous mettrons, bien entendu, des conditions diffé- 
rentes. 


Le secrétariat du duc (30) 


On y rencontrera la dame à qui offrir les fleurs si l’on veut voir le 
duc. 


La bibliothèque du duc (20) 


Est-il besoin de préciser que l’on y rencontrera le duc si l’on a 
rempli les conditions au secrétariat ? Comme pour la reine, nous 
mettrons des conditions non fatales mais obligatoires d'approche. 


LA NUMÉROTATION DES LIEUX 


Pour son utilisation dans le programme, chaque lieu est repéré non 
pas par son nom, mais par un chiffre. En effet, lors des tests (IF... 
THEN...) ou des branchements conditionnels (ON... GOTO..), dont 
nous nous servirons obligatoirement, il est plus facile d’utiliser des 
chiffres que des chaînes de caractères. 

L’examen du plan fait apparaître une numérotation qui peut sembler 
farfelue. En fait, comme nous l’avions suggéré dans le Chapitre 1, 
nous allons utiliser une astuce nous permettant de réduire grandement 
le nombre d’instructions et donc de gagner en rapidité d’exécution et 
en place mémoire. 

Pour cela, jetons tout d’abord un bref coup d’œil sur la manière 
générale de programmer les changements de lieu. Pour différentes 
raisons (entre autres pour faire apparaître la bonne description et la 
bonne image), le programme a besoin de reconnaître l’endroit dans 
lequel le joueur se trouve. Cela sera réalisé grâce au numéro de lieu 
stocké dans une variable. Le changement de lieu consistera donc, entre 
autres, à remplacer, dans cette variable, le numéro du lieu actuel par 
le numéro du lieu de destination. 
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Remarquons tout d’abord que sur les 38 lieux il en est 16 (devant 
les écuries, devant la maison de la veuve, etc.) à partir desquels on 
peut entrer quelque part, donc 16 autres (intérieur de l’écurie, etc.) 
dont on peut sortir pour rejoindre les lieux précédents. Il ne reste 
donc que 6 lieux dans lesquels on ne rentrera ou d’où l’on ne sortira 
pas. On peut donc facilement imaginer que la variable lieu sera très 
fréquemment employée (entrer, sortir, tests, etc.). 

Dans un premier temps, du point de vue de la numérotation, nous 
allons regrouper tous les “pas de porte” ensemble, de 1 à 16. Puis, à 
la suite, nous regrouperons tous les intérieurs, des numéros 17 à 32. 
Si l’extérieur de la chambre de d’Artagnan porte le numéro 1, l’intérieur 
portera le numéro 17. Si nous appelons 2 le pas de porte de la maison 
de la veuve, l’intérieur de cette maison portera le numéro 18, etc. 
Nous remarquons donc qu'entre l’intérieur d’un lieu et l’extérieur 
correspondant il existe une différence de 16 (1 + 16 = 17, 2 + 16 = 18, 
etc.). Avec ce système de numérotation, si nous appelons C la variable 
enregistrant les lieux, deux instructions seulement seront nécessaires 
pour répondre à toutes les possibilités d’entrée-sortie : C = C + 16 
pour le verbe entrer et C = C — 16 pour le verbe sortir. Après certains 
tests éventuels, quel que soit l’endroit et selon le cas, le programme 
se branchera toujours sur l’une ou l’autre ligne. Ce système amène 
une économie non négligeable d’instructions. 

Cette manière de faire offre un autre avantage : quel que soit le lieu 
où il se trouve, chaque fois que le joueur manifestera le désir d’entrer 
quelque part, nous effectuerons un test pour savoir s’il n’est pas déjà 
à l’intérieur (et inversement pour le verbe sortir). Avec ce type de 
numérotation, ces tests ne nécessiteront que deux lignes simples, du 
type : 


IF C > 16 THEN … 


(On ne peut entrer, puisqu'on est déjà à l’intérieur.) 


IF C < 17 THEN … 


(On ne peut sortir, puisqu'on est déjà à l'extérieur.) 


Remarquons qu’il est inutile de borner le second test en ajoutant 
AND C > 32, puisque dans les lieux 33 à 38 l’utilisation du verbe 
sortir est aussi interdite. 

Afin de simplifier encore, nous allons pousser plus loin la répartition 
de la numérotation des lieux. On peut déjà imaginer que les pas de 
porte se diviseront en deux : ceux à partir desquels on pourra entrer 
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librement, et ceux qui exigent une condition ou qui entraînent une 
conséquence. Pour les mêmes raisons de simplification des tests que 
précédemment, les lieux à entrée conditionnelle seront numérotés de 
1 à 4, tandis que les lieux à entrée libre porteront les numéros 5 à 16. 

Finalement, nous pouvons résumer cette numérotation particulière 
par la Figure 3. 
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Figure 3 : Liste des lieux. 


Devant chambre d’Artagnan 
Devant maison veuve 
Devant boudoir reine 
Devant bibliothèque duc 
Devant écuries 

Devant usurier 

Devant estaminet 

Devant cuisine 

Devant salle gardes 
Devant restaurant 
Devant douanes 

Devant grange 

Devant librairie 

Devant secrétariat 
Devant cour Versailles 
Devant cour Buckingham 
Dans chambre d’Artagnan 
Dans maison veuve 

Dans boudoir 

Dans bibliothèque 

Dans écuries 

Dans échoppe usurier 
Dans estaminet 


SORTIE 
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(EXTERIEUR) 


S. CONDITIONNELLE 
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Dans cuisines 
Dans salle gardes 

Dans restaurant 

Dans douanes 

Dans grange 

Dans librairie 

Dans secrétariat 

Dans cour Versailles 
Dans cour Buckingham 
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Campagne 
Calais 


Douvres 
Champ 


Rue de Londres 
Jument bleue 


SORTIE INTERDITE 
(PAS DE PIECES) 





3. LES CONDITIONS 


Nous présentons ci-dessous l’intégralité des lieux, dans l’ordre où 
l’on peut les rencontrer dans le déroulement normal d’une partie (et 
non pas par numéro chronologique). Pour chacun de ces lieux, nous 
donnerons la liste des objets éventuellement présents, l’endroit où l’on 
peut les trouver, ce qu’il faut faire pour les obtenir, et enfin nous 
ferons la description complète des pièges présents et futurs. 

Ces objets pourront être pris dans un ordre quelconque. Bien entendu, 
on pourra aussi décider de les laisser où ils sont. Dans ce cas, on 
pourra continuer le parcours et revenir les chercher ultérieurement (au 
détriment du temps passé). De toute façon, si on ne les possède pas 
dans certains lieux précis ou en présence de situations particulières, 
on se trouvera pénalisé, voire jeté en prison ou tué. Si l’on possède 
déjà un objet, on ne peut le prendre une deuxième fois, même si on 
l’a donné. 

D'une manière générale, en France on parle français et on paie en 
bon argent français (pistoles), tandis qu’en Angleterre on parle anglais 
et on paie avec des livres ! On ne peut acquérir quelque chose que si 
l’on a de l’argent du pays et en quantité suffisante. 

Outre les pièges classiques, et comme le but final doit être atteint 
dans un temps limité, on prévoira un “compteur de temps passé”. 
Cela sera réalisé en incrémentant de 1 une mémoire (C0 %) chaque 
fois que le joueur proposera une action. Des tests seront effectués en 
certains endroits du programme pour savoir si cette variable n’est pas 
supérieure à une certaine valeur. Si c’est le cas, on aura perdu et le 
jeu sera arrêté. 

On ne peut absolument pas entrer dans un lieu à cheval, sauf dans 
les cours de Versailles et de Buckingham (en venant de l’extérieur). 
Comme corollaire, on ne peut pas monter à cheval à l’intérieur d’une 
pièce. Ces tests s’effectueront sur les verbes entrer et monter. Il ne 
sera possible d’entrer quelque part que si l’on se trouve sur le seuil. 

Nous n’avons pas prévu d’insultes. Si le lecteur le désire, il lui sera 
toujours possible d’ajouter, dans les dictionnaires des verbes et des 
noms, les mots qu’il souhaite. Afin de simplifier les tests, ces mots 
pourront être ajoutés tout à fait à la fin de ces dictionnaires. Il suffira 
alors simplement d’insérer, à la fin des deux boucles de recherche 
d’occurrences, les lignes suivantes : 


198 IF VB > 34 AND C33 % = 1 THEN. (traitement des 
insultes françaises) 


ELSE IF VB > 34 THEN... (traitement des injures anglaises) 
_ 28 _ 


285 IF NM > 35 AND C33 % = 1 THEN... (traitement des 
insultes françaises) 


ELSE IF NM > 18 THEN... (traitement des injures anglaises) 


Attention toutefois à la place mémoire ! Comme nous le verrons 
dans la deuxième partie de cet ouvrage, lors de la réalisation des 
images, nous allons largement jouer avec l’instruction MEMORY (donc 
sur le HIMEM) ! L’implantation de nouvelles conditions, qui se traduit 
par l’ajout de nouvelles instructions dans le programme, risque donc 
de vous obliger à supprimer autre chose. 


A l’intérieur d’une pièce, on ne pourra pas indiquer de direction 
(nord, sud, etc.). Ces ordres de déplacement sont réservés pour l’exté- 
rieur. 

Les déplacements à pied entre les différents lieux ne seront permis 
que s’ils se font avant la campagne (33). En effet, la chambre de 
d’Artagnan, la rue de Trousse-Chemise, les écuries, l’usurier, l’estaminet 
et la maison de la veuve se trouvent dans Paris, donc proches les uns 
des autres. Par contre, partout ailleurs, pour se déplacer d’un endroit 
à un autre il sera nécessaire d’être à cheval. 


Tous les combats, sans exception, se passeront de la manière suivante : 


C1] On ne pourra attaquer que les gardes du cardinal ou les créanciers. 
Dans tous les autres cas, un simple message d’appel au calme sera 
affiché, sans aucune autre conséquence. 


C1 Lorsqu'on attaque les créanciers (chambre de d’Artagnan), et si 
l’on a une épée, on se fait uniquement repousser. Par contre, si l’on 
n’a pas cette arme, les créanciers nous font jeter en prison et le jeu 
se termine brutalement. 


CT Lorsque le combat a lieu contre les gardes du cardinal (estaminet, 
salle des gardes), il existe plusieurs possibilités. Si l’on ne possède 
pas d’épée et que l’on n’est pas accompagné des mousquetaires, on 
sera arrêté et jeté en prison (fin du jeu). Si l’on a soit l’épée, soit les 
mousquetaires (mais pas les deux), on sera blessé et on perdra du 
temps à se faire soigner (le programme rajoutera 15 au nombre 
d’actions). Dans le cas où les mousquetaires nous accompagnent et 
que l’on a une épée, on se fera simplement repousser, et rien de fâcheux 
n’arrivera. 


Chambre de d’Artagnan (17) 


On peut y voir une cheminée, une patère, une armoire, une porte, 
un coffre et un bureau. On y trouve la majorité des objets dont on 
aura besoin ultérieurement au cours du jeu. Lorsqu'on aura ouvert 
l’armoire, le coffre ou le tiroir et que l’on aura pris les objets qui s’y 
trouvent, on ne pourra plus les rouvrir. 


Une épée 


Elle est pendue à la patère et directement accessible sans condition 
préalable. Elle servira dans le cas où l’on décide d’attaquer les gardes 
du cardinal ou les créanciers. 


Une convocation de la reine 


On la trouve sur le bureau, à côté du sauf-conduit. Elle n’est 
accessible que si l’on regarde le bureau avant de la prendre. Dans le 
cas contraire, si l’on n’a pas vu le bureau, l’ordinateur répondra 
invariablement qu’il ne sait pas où elle se trouve. 

Sans que cela soit une nécessité pour la poursuite du jeu, on pourra 
la lire pour connaître le premier but de sa mission : aller à Versailles 
rencontrer la reine. Il faudra obligatoirement la présenter à un garde, 
lors du trajet aller, si l’on veut passer de la cour de Versailles au 
boudoir de la reine. 


Un sauf-conduit 


Il est lui aussi posé sur le bureau. Exactement de la même manière 
que pour la convocation, il n’est accessible que si l’on regarde 
préalablement le bureau. 

Il ne servira que lors du trajet retour. Il devra obligatoirement être 
présenté au garde pour pouvoir rejoindre la porte du boudoir de la 
reine à partir de la cour de Versailles. 


Un chapeau 


Il se trouve dans le coffre. Selon le même processus que pour le 
bureau, on ne pourra l’obtenir que si l’on a, au préalable, ouvert ce coffre. 

A priori, puisqu'il s’agit d’une pièce vestimentaire plus ou moins 
ornementale, on peut penser qu’il s’agit d’un leurre, donc qu’il est 
inutile de l’avoir sur soi. Il n’en est rien, puisque si l’on ne le possède 
pas lorsque l’on se trouve sur le bateau, pendant le trajet aller entre 
la France et l’Angleterre, on mourra d’insolation ! 


Une cape 


Elle est cachée dans l’armoire. Comme pour le coffre, on ne pourra 
la prendre que si l’armoire est ouverte. 

Là non plus, il ne s’agit pas d’un leurre. Elle sera nécessaire, pour 
se protéger du froid, lorsqu'il faudra dormir dans la grange. Dans le 
cas où l’on ne la possède pas, on mettra trois jours pour soigner un 
rhume carabiné, donc il sera impossible de mener à bien la mission 
(fin du jeu). 


Des bijoux 


On ne pourra les prendre dans le tiroir du bureau que si celui-ci est 
ouvert. 

Il s’agit d’un piège à double détente : il faudra penser à les échanger 
contre des pistoles lorsqu’on se trouvera en présence de l’usurier. Cet 
argent servira ensuite à acquérir diverses choses utiles, nuisibles ou 
simplement obligatoires, ou encore à payer certains services. 


Si on n’ouvre pas la porte, on ne peut sortir ! Cela semble tout à 
fait évident, encore faut-il penser à inclure ce test dans le programme ! 
Bien entendu un piège attend d’Artagnan s’il ouvre cette porte : 
obstinément, ses créanciers font le siège de sa chambre et n’en partiront 
jamais. Il sera offert la possibilité de donner certains objets (bijoux, 
argent, etc., si on les a) sans que cela serve à quelque chose. Les 
objets donnés ne pourront plus être récupérés. Malgré cela, on pourra 
continuer sa progression tout à fait normalement, jusqu’au moment 
où le jeu se terminera obligatoirement, faute d’un objet précédemment 
donné. Contrairement à d’Artagnan, les créanciers ne pourront prendre 
aucune initiative, donc, entre autres, ils n’ont pas la possibilité d’atta- 
quer. Par contre, comme il est indiqué au début de ce chapitre, ils 
réagiront si d’Artagnan les attaque. La seule issue possible pour entrer 
ou sortir de la chambre reste la cheminée... 


Rue de Trousse-Chemise (1) 


Une fois sorti de la chambre de d’Artagnan, on se trouve dans cette 
rue. Il n’y a rien de spécial, sinon que l’on ne peut entrer dans ladite 
chambre que par la cheminée et à pied. Elle ne sert que de carrefour. 
Les seules directions autorisées et libres sont le nord (vers les écuries), 
le sud (vers l’échoppe de l’usurier) et l’est (vers l’estaminet). 


Devant l’écurie (5) 


L’entrée dans l’écurie est libre si l’on est à pied. La seule direction 
possible est vers le sud (vers la rue de Trousse-Chemise). Elle n’est 
assujettie à aucune condition. 


Dans l’écurie (21) 


Lorsque l’écurie est pleine, on peut y trouver quatre chevaux que 
nous appellerons Bonami (n° 1), Flambeau (n° 2), Laflèche (n° 3) et 
Mirandole (n° 4). Si l’on ne possède pas déjà un cheval, on peut prendre 
n'importe lequel, librement. 

Le joueur pourra revenir à l’écurie pour prendre ou changer son 
cheval à n'importe quel moment et à partir de n’importe quel lieu. 
Pour cela, il faudra d’abord éventuellement laisser l’ancien pour pouvoir 
prendre le nouveau. 

Ce que le joueur ne sait pas, c’est que Bonami est malade, que 
Flambeau est trop lent pour permettre d’atteindre le but à temps et 
que Mirandole est mal ferré. Le seul qui soit en assez bonne santé 
pour terminer le parcours est donc Laflèche. Bien entendu, le test sur 
le numéro du cheval ne se fera que bien plus loin. Nous l’avons prévu 
à Calais, sur le chemin aller. Si l’on ne possède pas le bon cheval, le 
jeu se terminera brutalement à cet endroit. Pour être tout à fait sadique, 
on va jusqu’à ajouter un lieu (la Jument bleue, voir ce lieu) dans 
lequel on pourra éventuellement réparer l’erreur de choix, mais cela 
sera un leurre. 

La sortie de l’écurie est libre. 


Devant l’échoppe de l’usurier (6) 


L'entrée à pied est libre. La seule direction possible est vers le nord 
et elle n’est soumise à aucune condition. 


Dans l’échoppe de l’usurier (22) 


L'entrée à pied ainsi que la sortie ne font l’objet d’aucune condition. 

Si l’on a pensé à prendre les bijoux, c’est ici qu’il faudra Îles 
échanger pour obtenir quelque argent français. Dans un deuxième 
temps, il sera nécessaire de changer une partie des pistoles (si l’on 
en possède ou s’il en reste suffisamment), afin d’avoir des livres 
anglaises. On ne pourra obtenir de l’argent en aucun autre lieu de 
quelque manière que ce soit. Bien entendu, si on ne l’a pas fait 
précédemment, il sera toujours possible de revenir d’un endroit quel- 
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conque pour changer soit les bijoux, soit les pistoles. Enfin, on ne 
pourra changer qu’une seule fois les bijoux ou les pistoles. 

Il sera obligatoire d’acheter certains objets ou de payer pour certains 
services si l’on veut continuer le parcours. D’un autre côté, il existera 
des leurres qui ne serviront qu’à faire dépenser de l’argent pour rien. 
Et comme on ne possède au départ que le strict minimum... on tournera 
en rond sans pouvoir conclure ! 

Voici les endroits (et le montant des dépenses associées) dans 
lesquels il sera nécessaire ou facultatif de payer : 


DÉPENSES OBLIGATOIRES 


Estaminet 50 pistoles 
Bateau 300 pistoles 


Restaurant 10 livres 
Librairie 2 livres 
Bateau 30 livres 





Il faudra donc nécessairement avoir 350 pistoles et 42 livres anglaises 
pour pouvoir arriver à la fin du jeu. 


DÉPENSES FACULTATIVES 


Jument bleue 200 pistoles 
Rue de Londres 5 livres 





Si l’on fait le compte total, cela représente donc une somme de 
550 pistoles et 47 livres anglaises. Supposons que la livre vaille 10 pis- 
toles. Le montant total des dépenses que l’on peut effectuer est donc 
de 550 + 470 = 1 020 pistoles. D’autre part, en ne comptant que les 
dépenses nécessaires, il faudra posséder l’équivalent de 350 + 420 = 770 pis- 
toles. Nous n’en accorderons donc que 900 lors du troc des bijoux. 
De la même manière, nous ne donnerons que 45 livres (l’équivalent 
de 450 pistoles) sur les 47 possibles. Si nous résumons, l’échange des 
bijoux nous rapportera 900 pistoles, puis, lorsque nous aurons changé 
l’argent français, nous nous retrouverons à la tête d’un capital de 
450 pistoles et 45 livres. 

Si, sur le trajet aller, une action à la Jument bleue est décidée, quoi 
qu’on fasse on ne pourra prendre le bateau, puisqu'il ne nous restera 
que 250 pistoles (200 si l’on a payé les consommations dans l’estami- 
net). Symétriquement, en Angleterre, si l’on décide d’acheter les fleurs 
on ne pourra pas non plus reprendre le bateau puisqu'il nous manquera 
2 livres. Rappelons, à cet effet, que les dépenses dans le restaurant et 
dans la librairie sont obligatoires. Si on ne les a pas effectuées, on 


ne pourra pas, comme nous le verrons plus loin, atteindre Douvres, 
donc a fortiori, le bateau. 


Devant l’estaminet (7) 


On peut y entrer librement à pied. Comme nous allons le voir, la 
sortie est éventuellement conditionnelle. On ne peut aller qu’à l’ouest 
et à l’est (pas de conditions). 


Dans l’estaminet (23) 


On y trouvera d’un côté des gardes du cardinal, de l’autre Athos, 
Porthos et Aramis et enfin un patron. 

Le but, pour d’Artagnan, est de rencontrer ses amis. Une fois entré, 
deux directions sont possibles : aller à gauche ou aller à droite. 

Dans le premier cas, il trouvera les gardes. 

Dans le second cas, il verra les mousquetaires qui décideront, à ce 
moment-là, de l’accompagner. A partir de cet instant, il ne pourra 
sortir que s’il paie les consommations de ses amis. Pour cela, il devra, 
au préalable, appeler le patron. 

S’il décide de faire le trajet sans être accompagné par les mousque- 
taires, il se fera dépouiller ultérieurement de ses biens. Il ne pourra 
donc terminer sa mission. 


Devant la maison de la veuve (2) 


Les seules directions possibles sont vers l’ouest (l’estaminet) et vers 
l’est (campagne). Seul le déplacement vers l’ouest est libre. On ne 
peut se déplacer vers l’est que si l’on est à cheval. A partir de cet 
endroit, on ne pourra plus se déplacer à pied pour passer d’un lieu à 
un autre. 


Dans la maison de la veuve (18) 


Y entrer (à pied, bien entendu) n’amènera strictement rien pour la 
poursuite du jeu. La seule action possible et facultative est d’embrasser 
la veuve. Bien sûr, il s’agit là d’un piège fatal à effet immédiat. 


La campagne (33) 


Il s’agit encore d’un carrefour d’où l’on peut aller vers le nord (cour 
de Versailles), vers le sud (la Jument bleue) ou vers l’est (Calais). 
Pour voir le duc, il faudra offrir un bouquet à sa secrétaire. On 


trouvera ici des fleurs que l’on pourra cueillir. Cependant, il s’agit 
d’un leurre : vu le trajet restant à effectuer, elles seront fanées à l’arrivée. 

On pourra aussi lire un panneau qui, dans ce cas, indiquera l’existence 
et la direction de la Jument bleue. 


Devant la Jument bleue (38) 


L’entrée dans la Jument bleue est interdite. Tout se passera donc 
sur le seuil et toutes les actions seront des leurres. Il sera possible d’y 
soigner le cheval malade, de ferrer le cheval mal chaussé ou de changer 
n'importe quel cheval. Aucun message d’avertissement préalable n’étant 
prévu, on ne s’apercevra de l’intérêt de cette station qu'après avoir 
perdu. De toute façon, chaque action coûte 200 pistoles et on n’aura 
plus assez d’argent pour prendre le bateau. 


Il n’existe qu’une direction : vers le nord (à cheval). 


Devant la cour de Versailles (15) 


Il n’y a rien à en dire, si ce n’est que la seule direction possible 
se trouve au sud (à cheval). Il faut donc utiliser le verbe entrer si l’on 
veut aller dans la cour. Cette entrée pourra se faire à cheval. 


Dans la cour de Versailles (31) 


Il s’agit encore d’un carrefour donnant accès à la salle des gardes 
(nord), aux cuisines (ouest) et au boudoir de la reine (est). Ces trois 
derniers accès ne peuvent se faire qu’à pied. Par contre, on peut 
monter à cheval lorsqu’on est dans la cour et, si l’on désire aller à la 
campagne, il faudra utiliser le verbe sortir et non pas indiquer la 
direction sud. 


Seul l’accès de la cour vers le boudoir de la reine sera conditionnel : 
un garde en interdira l’accès. Pour y accéder, il faudra montrer, pendant 
le trajet aller, la convocation et, sur le trajet retour, montrer le 
sauf-conduit. Bien sûr, l’inverse n’autorisera pas le passage. Par contre, 
l’accès du boudoir de la reine vers la cour est libre. 


Devant les cuisines (8), devant la salle des gardes (9) 


Rien de particulier : l’accès à pied vers ces lieux ainsi que l’entrée 
dans les pièces ne comportent aucune condition. 


Dans les cuisines (24) 


On ne pourra rien y faire et il ne se passera rien ! L’intérêt d’un 
tel lieu est uniquement d’accroître le sentiment d’insécurité du joueur 
et de lui proposer un casse-tête (qu’est-ce qu’il va m’arriver si je ne 
trouve pas ce qu’il faut faire ou prendre ?). 


Dans la salle des gardes (25) 


Les gardes du cardinal y attendent les mousquetaires. La seule action 
qui sera autorisée est l’attaque éventuelle avec les conséquences prévues 
plus haut. 


Devant le boudoir de la reine (3) 


On ne pourra y entrer que si l’on frappe à la porte et que l’on utilise 
ensuite le verbe entrer. Dans un deuxième temps, si la reine nous a 
déjà donné une bague, on ne pourra plus entrer. 


Dans le boudoir (19) 


Devant un personnage important, il faut être poli. Rien ne pourra 
donc se passer et aucune action ne pourra être entreprise si l’on n’a 
pas, au préalable, fait la révérence. A partir de là, la reine donnera, 
d’une part, l’objet final de la mission, et, d’autre part, une bague qu’il 
faudra montrer au duc de Buckingham pour se faire connaître. 

Avec ou sans bague, la sortie du boudoir ainsi que le retour vers 
la cour sera libre. 


Calais (34) 

Dans le sens Calais —-> campagne, le passage est libre. Par contre, 
le passage campagne -> Calais est assujetti à trois conditions : 
1. être à cheval ; 


2. avoir un cheval valable : soit Laflèche, soit, en fonction du mauvais 
cheval, avoir effectué une action à la Jument bleue ; 


3. n’avoir pas trop perdu de temps. Cela se traduit, pour le programme, 
par le fait d’avoir compté moins de 90 actions. 


Une fois ces exigences remplies, on arrive sur le port de Calais. A 
part revenir sur ses pas, la seule issue est vers la mer. Pour cela, il 
faudra obligatoirement appeler d’abord le capitaine du bateau, puis 
payer le prix. Il est évident qu’on ne pourra payer que si l’on possède 
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suffisamment d’argent. Dans le cas contraire, bien qu’il ne puisse pas 
embarquer, le joueur pourra continuer à se promener entre Calais et 
la chambre de d’Artagnan, jusqu’à son épuisement ou parce qu’il aura 
atteint un nombre d’actions trop important s’il revient à Calais. 


En mer 


C’est un lieu fictif vis-à-vis du joueur, en ce sens qu’il s’agit d’une 
transition permettant de changer de dictionnaire et d’effectuer la série 
de tests suivants : 


1. Que l’on soit à Calais ou à Douvres, on ne peut traverser sans 
avoir appelé le capitaine et sans avoir payé le prix demandé. 


2. Si les trois mousquetaires n’accompagnent pas d’Artagnan, l’équi- 
page volera l’argent et la bague. On atteindra cependant Douvres 
et l’on pourra continuer à jouer sans pour cela arriver à la conclusion. 


3. Si l’on n’a pas pris son chapeau, on mourra d’insolation. 


Dans le cas où les tests sont passés avec succès, on se retrouve à 
Douvres. Bien que les mêmes tests existent aussi pour le retour Douvres 
—> Calais, ils seront dans ce cas inopérants, puisqu’on les aura réussis 
à l’aller. 


Douvres (35) 


Du point de vue du programme, c’est le symétrique de Calais. En 
venant de France, la traversée de Douvres est libre. Par contre, en 
sens inverse (en venant du champ), on y trouvera certains tests : 


1. Si l’on n’a pas changé de cheval dans la cour de Buckingham, 
l’animal meurt de fatigue en arrivant à Douvres et on a perdu. 


2. Si l’on n’a pas dormi dans la grange, c’est nous qui nous écroulons 
de fatigue. 


3. Si l’on n’a pas mangé dans le restaurant, on met trois jours pour 
se remettre de crampes d’estomac. 


4. Si le nombre d’actions effectuées est supérieur à 200, on aura perdu 
trop de temps. 


Une fois cette barrière passée, on retrouve les mêmes séries de 
conditions d'embarquement qu’à Calais (appeler le capitaine, payer si 
l’on a assez d’argent). 


Devant les douanes (11) 


Rien de particulier, si ce n’est qu’on ne peut rentrer dans la pièce 
à cheval. 


Dans le bureau des douanes (27) 


Il faudra simplement penser à demander son residence permit pour 
pouvoir ultérieurement traverser la rue de Londres et aller vers Buckin- 
gham (piège à effet retardé). C’est la seule action qui sera possible ici. 


Devant le restaurant (10) 


Voir Devant le bureau des douanes (11). 


Dans le restaurant (26) 


Il sera nécessaire d’y manger (en payant) pour réussir le test lors 
du retour à Douvres. 


Le champ (36) 


I1 dessert librement (à condition d’être à cheval) la grange et la rue 
de Londres. Nous avons vu plus haut les conditions à remplir pour 
aller à Douvres. 

Dans ce champ, on trouvera encore des fleurs. C’est celles-ci qu’il 
faudra cueillir pour les offrir à la secrétaire du duc. Toutes les autres 
sont des leurres. 


Devant la grange (12) 


Voir Devant le bureau des douanes (11). 


Dans la grange (28) 


Si l’on est à pied, l’entrée et la sortie de la grange sont des actions 
tout à fait inconditionnelles. Le seul intérêt de ce lieu est de comporter 
un piège à effet retardé : si l’on n’y a pas dormi, il y aura une issue 
fatale lors du retour à Douvres. D’autre part, cela sera aussi l’aboutisse- 
ment du piège fatal à effet retardé que nous avons semé dans la 
chambre de d’Artagnan : si l’on a oublié de prendre la cape, on met 
trois jours pour soigner le rhume attrapé pendant que l’on dort. 
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Rue de Londres (37) 


L'accès à cheval est libre en venant du champ ou de la librairie. 
De la même manière, le retour vers ces lieux ne comporte pas de 
condition. 

Dans cette rue on trouvera une marchande de quatre-saisons vendant 
des fleurs. Celles-ci pourront être acquises en payant et offertes à la 
secrétaire qui les acceptera. Par contre, on n’aura plus assez d’argent 
pour le retour. 

L’accès vers le palais de Buckingham (outre le fait d’être à cheval) 
est soumis à deux conditions : avoir un permis de séjour délivré par 
le douanier, sinon un policier nous arrêtera définitivement, et posséder 
un plan de Londres, que l’on peut acheter à la librairie, sinon on se 
perd dans les rues de Londres pendant trois jours. 


Devant la librairie (13) 


Voir Devant le bureau des douanes (11). 


Dans la librairie (29) 


Après y être entré, il faudra demander un plan de Londres. Toute 
autre demande ou action n’aura aucun effet. 


Devant la cour de Buckingham (16) 


Les conditions de passage extérieur —-> intérieur sont exactement les 
mêmes que pour la cour de Versailles. 


Dans la cour de Buckingham (32) 


Elle permet l’accès à pied, sans condition, vers le secrétariat au 
nord et vers la bibliothèque du duc à l’est. D’autre part, il faudra 
obligatoirement y changer de cheval si l’on veut pouvoir revenir à 
Douvres. 

Devant le secrétariat du duc (14) 


On y est déjà à pied, donc l’entrée dans le secrétariat est totalement 
libre. 


Dans le secrétariat (30) 


Pour voir le duc, il faut d’abord rencontrer la secrétaire pour lui 
offrir des fleurs. Seules celles qui ont été cueillies dans le champ ou 
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achetées dans la rue de Londres seront acceptées. Celles qui viennent 
de la campagne seront refusées. 


Devant la bibliothèque (4) 


Pour entrer dans cette pièce, il faut obligatoirement frapper à la 
porte, avoir offert les bonnes fleurs à la secrétaire et utiliser le verbe 
entrer. 


Dans la bibliothèque (20) 


Le duc n’acceptera de remettre les ferrets que si l’on a, dans l’ordre, 
fait la révérence, montré la bague et demandé les ferrets. 


Il ne restera plus alors qu’à faire le trajet en sens inverse sans 
oublier de changer de cheval dans la cour de Buckingham. 

Sur le trajet de retour, comme nous l’avons vu, les seuls écueils 
que l’on rencontrera seront situés à l’entrée de Douvres (test sur le 
cheval utilisé, sur le fait d’avoir dormi, mangé, et sur le nombre 
d’actions effectuées). 

Arrivé dans la cour de Versailles, il sera nécessaire de descendre 
de cheval, de montrer le sauf-conduit (et non plus la convocation), 
d’aller vers l’est, de frapper à la porte et d’entrer. 


Afin d’être traitées informatiquement, toutes les conditions seront 
stockées dans des variables sous la forme de condition logique (0 = faux, 
1 = vrai). Dans certains cas, cependant, il sera nécessaire de dépasser 
le chiffre 1 : le joueur a la possibilité de choisir un cheval parmi 
quatre. Nous enregistrerons donc le numéro du cheval choisi dans une 
seule variable (C11 %). Lorsqu'on aura fait une action à la Jument 
bleue, cette variable sera mise à 5. Si l’on a changé sa monture dans 
la cour de Buckingham, C11 % prendra la valeur 6. De la même 
manière, si l’on ne possède pas les bijoux, C5 % sera à 0 ; lorsqu'on 
aura pris les bijoux, elle sera mise à 1 et, dans le cas où on les aura 
donnés aux créanciers, par exemple, elle comportera la valeur 3. Cette 
manière de faire permet d’enregistrer, pour une condition particulière, 
toutes les situations ou tous les cas possibles, donc d’effectuer tous 
les tests nécessaires. 

Enfin, on peut remarquer qu’on ne mettra, dans ces variables, que 
des valeurs entières. Or, dans la majorité des cas, les ordinateurs (dont 
l’ Amstrad) ont besoin de moins d’octets pour stocker les variables 


entières que pour les variables numériques. C’est pour cette raison que 
toutes les variables enregistrant les conditions sont déclarées entières. 

La liste complète des variables de conditions avec les valeurs qu’elles 
peuvent prendre est présentée en Figure 4. Une première liste avait été 
constituée en même temps que l’élaboration des conditions détaillées 
qui précèdent et avant la programmation réelle. Au fur et à mesure 
de la réalisation du programme BASIC, elle a été légèrement modifiée, 
afin de satisfaire les besoins non prévus ou au contraire excédentaires, 
et en arriver ainsi progressivement à la liste définitive. 


(O à 38) 
(0 à X) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 3) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(O0 à 2) 
(0à 6) 
(0 à 1) 
(0 à 900) 
(0 à 1) 
(0 à 45) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
Non utilisé 

(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 1) 
(0 à 3) 
(0 à 1) 
(0 à 1) 
(0 à 1) 


Figure 4 : Liste des conditions. 


Numéro du lieu 

Nombre d’actions 

Vu bureau 

Pris convocation 

Pris sauf-conduit 

Ouvert tiroir 

Pris / donné / changé bijoux 
Ouvert armoire 

Pris cape 

Ouvert coffre 

Pris chapeau 

Pris / donné épée 
Numéro cheval choisi / soigné / changé 
Obtenu ferrets 

Nombre de pistoles 
Changé pistoles 

Nombre de livres 

Vu mousquetaires 
Appelé patron 

Payé consommations 
Reste cheval 1 à l’écurie 
Reste cheval 2 à l'écurie 
Reste cheval 3 à l'écurie 
Reste cheval 4 à l'écurie 
Montré bague 

Acheté plan 


Monté cheval 

Avoir dormi 

Avoir mangé 

Acheté carte de séjour 
Frappé porte 

Fait révérence 

Avoir bague 

Etre en France / Angleterre 
Ouvert porte 

Avoir fleurs 

Cueilli fleurs 

Montré convocation / sauf-conduit 
Donné fleurs 





4. TRAITEMENT DES ACTIONS 


Une fois l’analyse de syntaxe effectuée, il existe deux possibilités 
de traitement des actions : soit, pour un lieu donné, traiter toutes les 
actions possibles ou permises, soit, pour une action donnée, traiter 
tous les lieux possibles. 

Dans le premier cas, le branchement s’effectuera en fonction du 
numéro du lieu vers un sous-programme correspondant dans lequel 
on examinera tous les cas de tous les verbes et de tous les noms 
autorisés pour ce lieu. 

Dans le second cas, le branchement s’effectuera en fonction du 
numéro de verbe vers un sous-programme dans lequel seront traités 
tous les lieux pour lesquels l’action est permise. 

Pour le premier type de traitement, les différents tests faits sur la 
plupart des verbes se répéteront de façon plus ou moins identique 
autant de fois qu’il y a de lieux. On peut alors imaginer, afin de 
gagner de la place mémoire, que pour un lieu déterminé chaque verbe 
fasse l’objet d’un branchement vers un sous-programme commun... et 
nous sommes pratiquement ramenés au second type de traitement, par 
suppression du passage dans les lieux ! 

Nous avons donc choisi la seconde solution. Cependant, pour certains 
endroits du jeu dans lesquels on utilise des verbes ou des traitements 
tout à fait spécifiques (le bateau, Calais et Douvres), il nous a paru 
intéressant de conserver le premier type de traitement. Pour tous les 
autres cas, on réalisera autant de sous-programmes qu’il y aura de 
verbes. C’est à l’intérieur de ces modules que se fera le traitement des 
actions en fonction du lieu. 

Pour des raisons de taille de livre et d’intérêt pour le lecteur, il est 
difficilement concevable de passer tous les modules en revue. Nous 
vous présentons ci-après les plus représentatifs afin d’en expliquer la 
conception et l’architecture. Les autres modules, étant basés sur le 
même principe, pourront s’en déduire facilement. 

Nous avons vu que le branchement vers ces différents modules 
s’effectuait à la fin de l’analyse de syntaxe (ligne 290). 


BH MANGER 


Pour chaque verbe, dans un premier temps, il convient de bien 
préciser en clair, et sans en oublier, les différents cas d’emploi ainsi 
que les hypothèses retenues : 


° On ne peut pas manger dans un lieu autre que le restaurant (C = 26), 
que l’on soit en France ou en Angleterre. 


Si l’on n’a plus assez d’argent sur soi, on ne peut pas non plus manger. 


Si l’on n’est pas dans un des cas précédents, alors on peut manger 
et le montant du repas est déduit de la somme d’argent disponible. 


Une fois les hypothèses et les cas ci-dessus bien vérifiés, nous 


pouvons les transcrire en programme : 





Î 


on 


GAG IF C£izs THEN IF C3Z=1 THEN PRINT 
CE N'EST PAS UN RESTAURANT, ICI":GOTO 
14 ELSE PRINT "YOU &RE NOT IN 4 RESTSURS 
NT, HERE'":GOTO 14 

15414 IF CIiS<<14 THEN LS 

15H26 CiSA=CI EI: CES =): FRINT "AH i “0 
LU FEEL EETTER":FRINT UT YOUR FURSE LOS 
T 16 FOUNDS": GOTO 16 


M ALLER 


De la même manière que précédemment, les hypothèses et les 


différents cas sont les suivants : 


A l’exception de l’estaminet (C = 23), si l’on se trouve à l’intérieur 
d’une pièce en France ou en Angleterre (C < 31 ou C > 16), on ne 
peut aller nulle part. 


Si l’on se trouve à l’extérieur d’une pièce en France ou en Angleterre 
(C <17 ou C >30), on ne peut aller que dans une direction 
géographique (nord, sud, est ou ouest). 


A l’intérieur de l’estaminet (seul lieu restant à traiter puisque nous 
avons épuisé tous les autres dans les deux conditions précédentes), 
on ne peut aller qu’à droite ou à gauche. 


Si l’on va à gauche, on trouve les gardes du cardinal. 


Toujours à l’intérieur de l’estaminet (sous-entendu en voulant aller 
à droite, puisque c’est la seule direction restante), si l’on a déjà vu 
les mousquetaires et que l’on n’a pas payé les consommations, on 
ne peut aller nulle part sans avoir payé. 


Si l’on a déjà vu les mousquetaires, il n’y a plus personne. 


+ Le seul cas restant est celui où l’on va à droite sans avoir vu les 
mousquetaires. Il est alors inutile d’effectuer les tests considérés et 
l’on affiche directement le message voulu. 


A partir de ces hypothèses, nous pouvons donc bâtir point par point 
notre sous-programme : 


GG IF Crié AMD CES1 NO C£rZS THEN IF 
er) THEN PRINT "A L'INTERIEUR C'UNE F 
CE,":FPRINT "ON ME PEUT ALLER HULLE FR 
T':G0TO 14 ELSE PRINT "INSIDE 4 ROOM THE 
RE IS HO Wérï TO GO": GOTO 16 
FSI IF Céir OR Ci34 THEM IF CSS=l THEN 
PRINT "DANS QUELLE GIRECTION ?':G0OTO 164 
ELSE FRINT "MHICH CGIRECTION 7':G0OTO 14 
FPSEU IF NMÉZF OR NMÈ34 THEN PRINT "GE Gi 
EL CÜÛTE F':GOTO 164 
FPSS4 IF NMSSG THEN IM£="CIMESG":GOSUE é4 
1AG: PRINT "CE SOMT LES GARDES OÙ CARDIHE 


L.M:PRINT "ILS SONT EIEN ARMES !':GOTO 1 
ñ 

FISS IF Ciéézi AND CISk=4 THEN FRINT "Fé 
5 SANS FATER LES CONS OMMATIONES" : GÜTO 16 
Fiat IF Ciéazi THEM FRINT MIL N° À PLUS 


PERSONNE" :GOTO 18 

PSS IMÉ="CIMZSO":GOSUE é4146:PRINT "CE 
SONT ATHOS, PORTOS ET ARAMIS.":PRINT "AP 
RES EXPLICATIONS "PRINT "ILS DECIDENT D 
E VOUS SUIVRE":Cié#=1:G0OTO 18 


M DEMANDER 


Les hypothèses sont les suivantes : 

Si l’on est ailleurs que dans la bibliothèque du duc (C <> 20), dans 
le bureau des douanes (C <> 27) ou dans la librairie (C <> 29), on 
ne peut rien demander. 


Dans la bibliothèque du duc (C = 20) 


On ne peut demander quelque chose que si l’on a fait la révérence. 
On ne peut rien demander d’autre que les ferrets. 
Si l’on n’a pas montré la bague, on ne peut rien obtenir. 


Si l’on ne se trouve pas dans l’un des cas précédents, alors la 
condition avoir ferrets est initialisée (C12 % = 1). 


Dans la librairie (C = 29) 


On ne peut demander autre chose qu’un plan de Londres. 

Si l’on a déjà ce plan, on ne peut le demander une deuxième fois. 

On ne peut obtenir ce plan que si l’on a suffisamment d’argent sur 
soi. 

Alors seulement, la condition avoir plan (C24 %) sera mise à 1 et 
le prix du plan déduit de l’argent disponible. 


Dans le bureau des douanes (C = 27) 


On ne peut demander qu’un permis de séjour. 

Si l’on en a déjà un, on ne peut en obtenir un deuxième. 

La condition avoir permis de séjour (C29 %) n’est mise à 1 que si 
les tests précédents sont tous négatifs. 

Traduit en langage BASIC, cela donne le sous-programme suivant : 


FOGG IF CEE AMD C£iZr AND CérZr THEH 4 
gif 

FHiG IF C=£7 THEM fé ELSE IF C=£f THEN 
Fin 

FPAEN IF CSi=4 THEM FRINT "YOU ARE VERT 
IMPOLITE, MUSKETEER !'':GOTO 14 

5438 IF NM£>18 THEN PRINT PEURERY, I CNT 

T GIVE YOU THAT": GOTO 14 

FRSN IF CESA=4 THEN PRINT "ESURRY, MONSIE 
DR, 1 DONT ENOH YOU": GOTO 14 


FESG PRINT "OK, HERE ARE THE FERRETS."3F 
a. "PLEASE , GIVE THE GUEEN MY BEST REG 
ARDS":CI2%=1:G0TO 16 

FPaéG IF NM<i17 THE PRIT "YOU DOMNST HEE 
CG THAT": GÜTO 14 












FPGF4 IF Cak=i THE 41is 

FASG IF CiSkiZ THEM 16458 

FUTG CLéisl :CISASCISA-ZI PRINT MHÈRE IS T 
HE MAP: GOTO 14 

Fi64 tré THEM FEÉIMT "I HAVE NOT THé 
T THING':GOTO 14 

FIG IF CEF=1 THEN 4115 

riz rame PRINT MHERE IS YOUR RESIDENC 
E-PFERMIT.":PFRINT MTHATSS FREE." :GOTO 14 


5. DIALOGUE 
HOMME-MACHINE 


M ANALYSE DE SYNTAXE 


Comme nous l’avons vu, la base de toute analyse de syntaxe est 
un dictionnaire de verbes et de noms stocké dans la mémoire du système. 

Le principe d’une analyse de syntaxe est alors très simple : il suffit 
de comparer un mot proposé par le joueur avec les mots du dictionnaire. 
S’il y a occurrence, l’aiguillage se fait vers le sous-programme de 
traitement spécifique. 

Afin de rester compatible avec la taille limitée de la mémoire d’un 
ordinateur individuel sans toutefois nuire à l’intérêt du jeu, nous nous 
sommes fixé les choix suivants : 


La recherche d’occurrences se fera par balayage systématique du 
dictionnaire. 


La comparaison se fera sur les six premières lettres de chaque mot 
(pour pouvoir distinguer par exemple le verbe ferrer du nom ferret). 


Dans certains cas, le système pourra comprendre une seule initiale 
(I pour inventaire, O pour ouest, etc.). 


On commencera par effectuer la recherche d’occurrences sur les 
verbes avant de le faire sur les noms. 


Lorsqu’un mot est extrait de la phrase proposée par le joueur, il sera 
immédiatement comparé au dictionnaire. 


Lorsqu’un verbe ou un nom sera déclaré valide par le test d’occurrence, 
on arrêtera la recherche sur ce mot, sans continuer la comparaison 
avec le reste du dictionnaire. 


SAISIE DE LA RÉPONSE 


20 IF LENCREI=H THEN 16 


Ligne 10 


Chaque action décidée par le joueur passe obligatoirement par 
l’analyse de syntaxe. C’est donc le lieu idéal pour incrémenter le 
compteur d’action CO %. L’instruction INPUT (contrairement à GET$) 
permet de saisir plusieurs caractères qui seront stockés dans R$. Le 
fait de remplacer la virgule par un point-virgule entre INPUT et R$ a 


pour effet de supprimer l’apparition du point d’interrogation qui sert 
d’invite pour l'instruction INPUT. Enfin, dans le but d’éviter une 
double série de tests, l’instruction UPPER transformera les minuscules 
éventuelles comprises dans R$ en majuscules. 


Ligne 20 


Pour le cas où la touche ENTER serait frappée juste après le signe 
d’invite (->), R$ contiendra une chaîne vide. Il sera alors inutile de 
poursuivre le traitement. On ajoute donc un test qui renverra à la ligne 
précédente si la longueur (LEN) de R$ est nulle. 


TRAITEMENT DES INITIALES 


Ü IF FRE="I" THEN Su 
A4 IF LENSRHI=i THEN S6f 


Comme elles sont peu nombreuses et afin d’éviter des tests inutiles, 
les initiales sont traitées juste après la saisie de la réponse. Nous en 
avons prévu six : Ï pour la demande d’inventaire et cinq autres pour 
les déplacements géographiques (N, S, E, O et W). 


Ligne 30 


On se débarrasse d’abord de la lettre I. Si R$ contient uniquement 
cette lettre, le branchement se fera à la ligne 8000, adresse à partir 
de laquelle se trouve le sous-programme d’affichage de l’inventaire. 


Les autres initiales n’intéressant (sauf erreur de frappe) que les 
déplacements, elles seront testées individuellement dans le sous-pro- 
gramme correspondant placé à partir de la ligne 500. Nous les traiterons 
donc globalement à la ligne 40 en regardant simplement si la variable 
R$ ne comprend qu’un seul caractère. 


EXTRACTION ET FORMATAGE D'UN MOT 


Si l’on fait abstraction des apostrophes et de certains signes de 
ponctuation, on remarque tout d’abord que tous les mots d’une phrase 
sont séparés par un espace. Il suffit donc de noter la position des 
espaces à l’intérieur de la phrase (à l’aide de l'instruction INSTR$) 
puis d’extraire le mot par l’instruction MID$. Il faut toutefois savoir 


que lorsqu'une chaîne de caractères est saisie par un INPUT, l’appui 
sur la touche RETURN n’ajoute pas d’espace à la fin de la chaîne. 


G IF RIGHTECRE,1)=" " THEN 76 


ï HO FEz=RE+" n 
F4 LE=fshpRgZ=r"" 
: REE= "NME : F=G 


HA FRES=MICRLIRE 64, Fifi: 

14 IF MIDESRES,Z, lie" " THEN RES=MID#iFE 
EF ,3: 

11 IF Ke THEM WA=RE+ ELSE ME-SRES 

124 IF LEMÉREHI' ré THEN RES=LEFTHIRES, éi: 
GOT IS 


FE A=R+Ii:RSINETREIASRE "M M 
HE 


me re A] 1 


134 RF=SASCIRIGHTHCRES, j 0 
144 IF RP£65 OR RP>94 THEN RES=LEFTSGRES# 
 LEMERES) -1 5 

Ligne 50 


Si le dernier caractère de la phrase contenue dans R$ est un blanc, 
on saute la ligne 60, cette dernière ligne étant simplement destinée à 
ajouter un espace à la fin de la phrase. 


Ligne 90 


L’instruction INSTR permet de chercher dans R$, à partir de la 
position n° À, le numéro de position du prochain blanc. Ce numéro 
est stocké dans KR. 


Ligne 100 


A l’aide de l’instruction MID$ on extrait de R$ les R-A caractères 
suivants à partir de la position A. Par exemple : 


Position des caractères 12345678 9 10 11 12 13 14 
Contenu de R$ MONTER CHE V A L 


(Remarquez l’espace éventuellement ajouté en position 14 par la li- 
gne 60.) 


Au départ, A vaut 1 (A = O + 1). Donc, l'instruction INSTR$ va 


rechercher, à partir du premier caractère, le numéro de position de 
l’espace suivant (7) et le stocker dans R. L’instruction MID$ va ensuite 
extraire de R$ les caractères contenus entre À = 1 et R —- À = 6 et les 
stocker dans RE$. Ce qui correspond bien au mot MONTER. 

Après traitement de ce mot et sans changer les variables, nous 
reviendrons directement à la ligne 90. À ce moment, A=R#+1 
=7+1-8. Selon le même principe que précédemment, INSTR va 
mettre 14 dans R et MID$ chargera RE$ avec le mot CHEVAL compris 
entre À = 8 et R — 1 = 13. 

Nous verrons plus loin comment stopper le processus lorsque le 
dernier mot de la phrase a été traité. 

Supposons maintenant que la phrase du joueur soit la suivante : 
OUVRIR L’ARMOIRE, QUI... 

Le traitement que nous venons de voir va extraire les caractères 
“L’ARMOIRE,”. Il nous faut donc nous débarrasser du L’ et de la 
virgule. Dans la phraséologie restreinte d’un jeu d’aventure, l’apostrophe 
se trouvera toujours en deuxième position (donc éviter les mots du 
genre D’ACCORD ou commençant par QU’). Il nous suffit donc de 
programmer la phrase suivante : “Si le deuxième caractère est une 
apostrophe, alors, extraire tous les caractères à partir du troisième”. 
C’est ce qui est réalisé à la ligne 110. Remarquez que dans le deuxième 
MID$ nous avons indiqué la position de départ (3) sans mentionner 
le nombre de caractères à extraire. MID$ va donc sortir tous les 
caractères à partir du 3°, c’est-à-dire ARMOIRE, (y compris la virgule). 


Ligne 120 


Dans notre cas, le problème de la virgule sera résolu en même temps 
que la troncature des mots après le 6° caractère : si la longueur de 
RES est supérieure à 6 caractères, alors ne conserver dans RE$ que 
les 6 premiers. A l’issue du traitement de la ligne 120, il ne subsistera 
donc plus dans RE$ que le mot ARMOIR. 


Lignes 130 et 140 


Par contre, si la longueur du mot est inférieure ou égale à 6 caractères, 
on commencera par transformer (ligne 130) le dernier caractère en 
code ASCII. On effectuera ensuite un test sur ce code (ligne 140) 
pour savoir s’il est plus petit que celui de la lettre À ou plus grand 
que celui de la lettre Z. Si c’est le cas, le dernier caractère n’est pas 
une lettre et on le supprime. 


RECHERCHE D’OCCURRENCES 


Comme nous avons décidé de balayer le dictionnaire, la recherche 
d’occurrences sera incluse dans une boucle dont la borne supérieure 
sera égale au nombre de mots inclus dans le dictionnaire considéré. 
Nous aurons donc deux boucles : une pour la recherche des verbes, 
l’autre pour la recherche des noms. Plusieurs hypothèses seront à 
considérer : 


[] On traitera les verbes avant de traiter les noms. 


C1] Lorsqu'une occurrence se produit, il faut pouvoir sortir de la 
boucle sans continuer la recherche jusqu’à la fin du dictionnaire. 


C] Lorsqu'un mot (verbe ou nom) aura été déclaré valable, on passera 
directement au traitement suivant, même si tous les mots de la phrase 
n’ont pas été testés. 


[1] Si aucun verbe n’a été trouvé, on affichera un message et on 
retournera directement à la saisie sans faire de recherche sur les noms. 


[1 Il se peut qu’un même mot, présent dans les deux dictionnaires 
(verbes et noms), soit extrait deux fois. Il sera donc nécessaire de ne 
pas le compter dans les noms. 


Ces fonctions sont réalisées par quatre modules compris entre les 
lignes 150 à 280 listées ci-dessous. Le premier (lignes 160 à 180) et 
le troisième modules (lignes 220 à 250) sont respectivement les boucles 
de recherche d’occurrences sur les verbes et sur les noms. Le deuxième 
(lignes 190 à 200) et le quatrième modules (lignes 270 et 280) 
permettent le traitement direct de verbes ou de noms particuliers : 


IF K=1i THEN 278 

FOR I=i TO NV 

IF VERCII=RES THEN VE=I:VRESUESC ID: 
=HY : Ke 

128 NEXT I:1F R=LENCR#S) AND UE=8 THEN IF 


un het bte 
£ Jin 
DOUCE) 





CaS4=1 THEN PRINT "JE NE COMPREND F4": 
GOTO 14 ELSE PRINT "I DON'T UNDERSTAND" 
:GOTO 16 

156 IF UE=ii THEN SG 

195 IF VE=33 OR VE=34 THEN 17696 

284 IF VERS THEN RE=LEFTE(URS, 1) :GOTO 5 

ag 

214 IF K=1 THEN 8û ELSE 94 


G FÜR I= FO Fi 


236 IF NOSCIIZURS THEN ZSH 
244 IF HMOSCIIZRES THEN Hz] : I=HH 
£S4 MEXT I 
2éû IF RLENCRES AND Hi=û THEN 5ü 
276 IF NMei THEN Süûû 
289 IF NM>l AND NMéé THEN RE=LEFTEUCRES, 1 
1: GOTO 5664 
Ligne 150 


K est un drapeau que l’on met à 1 lorsqu'un verbe a été trouvé. Si 
aucun verbe n’est valide, K est à zéro. Donc, avant de rentrer dans la 
boucle de recherche des verbes, on effectue un test sur K : s’il est 
égal à 1, on saute directement à la boucle de recherche des noms. 


Ligne 170 


Si le verbe extrait du dictionnaire (VES$(I)) est le même que celui 
extrait de la phrase, alors on stocke : le numéro du verbe dans VB, 
le verbe lui-même dans une variable provisoire VR$, la valeur finale 
de la boucle dans I (sortie de la boucle), 1 dans le drapeau K. 


Ligne 180 


Lorsqu'on est sorti de la boucle (1 = NV), si la position notée dans 
R correspond à la fin de la phrase ET si aucun verbe n’a été reconnu, 
alors on affiche un message (soit en français, soit en anglais) puis on 
revient directement à la saisie. 


Lignes 190 à 200 


Si certains verbes particuliers ont été reconnus, on stoppe le processus 
d’analyse de syntaxe en se déroutant vers les sous-programmes corres- 
pondants. 


Ligne 210 


Si le drapeau est à 1 (verbe trouvé), on revient à la ligne 80 pour 
initialiser la recherche des noms. Sinon (verbe non trouvé), on continue 
l’extraction des verbes de la phrase (ligne 90). 


La boucle de recherche d’occurrences des noms se trouve entre les 
lignes 220 et 250. 


Ligne 230 


Si le nom extrait du dictionnaire (NO$(I)) est le même que le verbe 
trouvé précédemment (stocké dans VR$), on passe directement au nom 
suivant dans le dictionnaire. 


Ligne 240 


Si le nom extrait du dictionnaire est le même que celui extrait de 
la phrase (RES), alors on stocke le numéro du verbe trouvé dans NM, 
puis on met dans le compteur de boucle I sa valeur finale. 


Ligne 260 


Si l’on n’a pas examiné tous les mots de la phrase ET si l’on n’a 
pas trouvé de nom, alors on retourne en 90 pour continuer la recherche 
des noms. 


Lignes 270 à 280 


De la même manière que pour les verbes, on traite directement les 
noms particuliers. 


Il faut enfin noter la ligne 115 qui est destinée à mettre dans V$ 
et N$ le verbe et le nom trouvés. Ces variables serviront dans 
l’impression des messages communs. 


BRANCHEMENTS 


Nous avons vu que le verbe est déterminatif d’une action et que 
c’est en se référant à lui (à son numéro, dans notre cas) que seront 
effectués les divers branchements. Cette fonction sera donc réalisée 
très simplement par la ligne 290 : 


256 ON VE GOTO 3540,d0û0,450û,5440,5586, 
SUD ,éS00,7006,7500,7S00,800t,8SGG, FO, 
PS0 10006 ,10568,11400,11506,12606,1250û 
156006,12560,14û0ûn,14508,15S848,15500 168 
üg ,1658û 
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Nous trouverons donc en 3500 le module traitant le verbe n° 1 (voir), 
en 4000 le module traitant le verbe n° 2 (prendre), etc. Remarquez la 
répétition du branchement en 7500. Cela est dû au fait que nous traitons 
les verbes 9 (descendre) et 10 (monter) dans le même module situé 
en 7500. 


M DESCRIPTION DES LIEUX 


Situé entre les lignes 1000 et 1420, le sous-programme de description 
des lieux est basé sur le principe le plus simple de notre jeu d’aventure. 


1845 OÙ C GOTO 141H,1424,1456,16044,1450, 
1ué4,14/76,1856, Er 11i64,11164, rt 1138, 
1144,1126, 1148, 1186,1174,1204,1214, 
iZéG,i2rFé,irs 3661310, 1 24,1424, 
1534 ,1344,135 1356, 396 , 1406, 
1416 

1418 PRINT "RUE DE TROUSSE-CHEMISE,":PRI 
MT MDEUSNT VOTRE CHAMBRE" :GOTO 14 

1426 PRINT "ICI HSBITE UNE CHARMATE VEU 
VE..." :G0TC 16 

1936 PRINT "Lé FORTE OÙ ÉBOUDOIR GE LA RE 
INE.":GOTCO 14 

1844 FRINT "HERE IS THE DOOR OF THE GLKE 


GG a 
= = 


re 
ne 


6 LIEFARY": GOÛOTO 16 

1456 PRÉIMT "UOICI L'ENTREE GE LOTRE ECUR 
IE,.,..":G0TO 1& 

igéé PRINT "L'ECHOPFE DE L'USURIER,. "IFR 
INT "OONNEZ BEGUCOURF POUR AMUOIR PFEU":GOT 
Q if 

16764 PRINT "L'ENTREE DE L'ESTAMINET OÙ € 


OIN,":PRINT "RENDCEZ-VOUS FRIVILEGIE GES 
GARDES ET CESMOUSGUETAIRES":GOTO 16 
1080 … etc 


En ligne 1005, le programme se branche à la ligne correspondant 
au numéro du lieu (ON C GOTO...). Chacune de ces lignes (ou groupe 


de lignes) sera essentiellement constituée de l’impression du message 
considéré suivi d’un retour à la saisie de la phrase du joueur. Remarquez 
les espaces ou les traits d’union parfois ajoutés dans certains textes : 
ils sont simplement prévus afin de terminer une ligne en repoussant 
l'impression du mot suivant sur la ligne qui suit. Cela évite ainsi 
d’avoir des mots tronqués aléatoirement en fin de ligne. 


M DICTIONNAIRE 


Les dictionnaires, au nombre de deux, seront réalisés sous la forme 
de deux tableaux (verbes et noms). Il sera donc prévu deux dictionnaires 
pour la partie française, et deux autres pour la partie anglaise. 

La liste complète des mots que nous avons choisis est indiquée en 
Figure S pour les verbes et en Figure 6 pour les noms. 

On pourra noter que certains mots sont communs à la fois au 
dictionnaire des verbes et à celui des noms. Il s’agit des directions 
(nord, sud, est, ouest) et du mot inventaire. En voici la raison : pour 
la détermination d’une action, le verbe est prépondérant. C’est-à-dire 
que pour que l’ordinateur comprenne la demande d’action du joueur, 
celui-ci doit obligatoirement inclure dans sa phrase un verbe reconnu, 
éventuellement suivi d’un nom. Les mots ci-dessus étant employés 
fréquemment tout au long du jeu, il est classique, dans tout jeu 
d'aventure, de permettre au joueur de n’indiquer qu’une initiale de 
direction (N pour nord), qu’un mot (nord) ou une phrase complète 
(aller nord). Les initiales sont traitées directement et d’une manière 
très simple, juste après la saisie, sans passer par la recherche d’occur- 
rences (voir le paragraphe traitant de l’analyse de syntaxe). Ce n’est 
donc pas la peine de les inclure dans le dictionnaire. Lorsque le joueur 
indique le mot complet, il est nécessaire que l’ordinateur comprenne 
ce mot comme étant un verbe. Dans ce cas, ce mot devra figurer au 
dictionnaire des verbes. De la même manière, lorsqu’on indique une 
phrase complète, le mot considéré devra être inclus dans le dictionnaire 
des noms. 

D'autre part, il est d’usage (sans que cela soit une règle absolue) 
d’indiquer les verbes à l’infinitif. En effet, même si l’analyse de syntaxe 
le permet, le joueur n'’inscrira qu’une fois ou deux, et uniquement 
pour sa satisfaction personnelle, une phrase du genre “Je souhaiterais 
monter sur ce sacré cheval afin de poursuivre ma route”. C’est long 
et fastidieux, surtout s’il faut réaliser quelques centaines d’actions 
pour arriver au but. Très vite, on se contentera de dire monter à cheval. 
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FRANÇAIS 


VOIR 
PRENDR<E> 
SORTIR 
OUVRIR 
FERMER 
ATTAQU<ER> 
DONNER 
LAISSE<R> 
DESCEN<DRE> 
MONTER 
INVENT<AIRE> 
ENTRER 
DEMAND<ER> 
ALLER 
CHANGE<R> 
SOIGNE<R> 
FERRER 
PAYER 
APPELE<R> 
FAIRE 
MONTRE<R> 
FRAPPE<R> 
LIRE 
CUEILL<IR> 
MANGER 
DORMIR 
ACHETE<R> 
EMBRAS<SER> 
NORD 

SUD 

EST 

OUEST 
SAUVER 
REPREND<RE> 


Figure S : Dictionnaire des verbes. 


ANGLAIS 


<TO> LOOK 
<TO> GET 

<TO COME> OUT 
<TO> OPEN 
<TO> SHUT 
<TO> ATTACK 
<TO> GIVE 
<TO> LET 

<TO COME> DOWN 
<TO COME> UP 
INVENT<ARY > 
<TO COME> IN 
<TO> ASK 
<TO> GO 

<TO> CHANGE 
<TO> TREAT 
<TO> SHOE 
<TO> PAY 
<TO> CALL 
<TO> DO 

<TO> SHOW 
<TO> KNOCK 
<TO> READ 
<TO> PICK 
<TO> EAT 
<TO> SLEEP 
<TO> BUY 
<TO> KISS 
NORTH 

SOUTH 

EAST 

WEST 

<TO> SAVE 
<TO> RESTOR<E> 





Z 
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FRANÇAIS ANGLAIS 


INVENT<AIRE> INVENT<ARY > 
NORD NORTH 
SUD SOUTH 

EST EAST 
OUEST WEST 
CONVOC<ATION> RESIDE<NCE PERMIT> 
CHEVAL HORSE 
FLEURS FLOWERS<S> 
ARGENT MONEY 
LIVRES POUNDS 
REVERE<NCE> BOW 
CAPITA<INE> CAPTAI<N> 
BATEAU BOAT 
PORTE DOOR 
CHAMBR<E> DUKE 
CHEMIN<EE> RING 
BUREAU MAP 
ARMOIR<E> FERRET<S> 
COFFRE 

TIROIR 

PATERE 

CAPE 

CHAPEA<U> 

SAUF-C<ONDUIT> 

EPEE 

BUOUX 

PANNEA<U> 

PISTOL<ES> 

DROITE 

GAUCHE 

PATRON 

BONAMI 

FLAMBE<AU> 

LAFLEC<HE> 

MIRAND<OLE> 
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Figure 6 : Dictionnaire des noms. 


Enfin, dans le dictionnaire des noms, on remarquera que certains 
mots anglais ne sont pas la traduction des mots français portant le 
même numéro. Dans la partie du jeu qui se déroule en Angleterre, 
nous n’avons pas prévu, par exemple, de cheminée. Il est donc inutile, 
et même nuisible pour l’encombrement mémoire, de traduire ce mot 
qui n’a que très peu de chances d’être employé. 

Ces dictionnaires seront chargés, l’un remplaçant l’autre et en 
fonction des besoins, au moment du passage d’un pays à l’autre à 
l’aide de l’instruction READ associée à DATA et RESTORE. 


Lace] 


NU=3g:IF C33%=1 THEN NN=535:RESTORE 
ELSE NNSIS:RESTORE Z284û 

FOR I=i TO NU:REGD VESCI):NEXT I:F0 
1 TO NN:REMD NOBCIH:NEXT I:GOTO 164@ 
2024 DôTé VOIR, PRENDR, SORTIR, OUVRIR,FERM 
ER,ATTAQU, DONNER , LAISSE ,DESCEN,MONTER, IN 
VENT ,ENTRER , GEMAND , &LLER, CHANGE, SOIGNE ,F 
ERRER, PAYER ,APPELE FAIRE MONTRE , FRAPPE, L 
IRE,CUEILL MANGER, DORMIR , ACHETE, EMBRAS ,N 
ORD,SUD,EST, OUEST, SAUVER , REPREN 

2836 DATA INVENT,NORD, SUD, EST, OUEST, CONV 
OC, CHEVAL , FLEURS , MRGENT , LIVRES , REVERE , Cé 
PITA,E4TEAU, PORTE, CHÔMER , CHEMIN, BUREAU , À 
RMOIR,COFFRE,TIROIR,PATERE , CFE ,CHAPFE4,S 
AUF-C,EPEE, BIJOUX, PANNES, PISTOL,DROITE,G 
AUCHE , PATRON, BONAMI , FLAMBÉE , LAFLEC ,MIRAND 
2848 DATA LOCK, GET, OUT, OPEN, SHUT ,ÉTTACK, 
GIVE, LET , DOWN ,UP,INVENT,IN,ASK, GO, CHANGE 
.TREÂT, SHOE, PâY, CâLL,00,SHOU,KMNOCK,READ , 
PICK,EAT,SLEEP,BUY,KISS, NORTH, SOUTH, EAST 
WEST , SAVE ,RESTOR 

2854 DATA INVENT NORTH, SOUTH, EAST WEST, ER 
ESIDE ,HORSE , FLOWER ,MONEY , FPOUNDS , BOW , CAPT 
A1 ,ECAT,DOCR,DUKE,RING,MAF,FERRET 


Cao] 


D 
ee fi} 
Dex] 


Le 
an] 


Ati +) hi 


Ligne 2000 


Il s’agit d’une ligne d’initialisation. Le nombre de verbes anglais 
et français est le même (34). Par contre, il y aura 35 noms français 
et seulement 18 noms anglais. Nous commencerons donc par initialiser 


la variable NV à 34, puis, si nous nous trouvons en France (C33 % = 1), 
la variable NV sera égale à 35 et la lecture des DATA commencera à 
la ligne 2020 (RESTORE 2020). Sinon, la variable NN sera égale à 
18 et la lecture des DATA commencera à la ligne 2040. 


Ligne 2010 


C’est dans cette ligne que se fait le remplissage des tableaux. Nous 
y trouvons une première boucle remplissant le tableau des verbes 
(VES$(D) depuis le premier mot jusqu’au 34°. Une deuxième boucle 
suit immédiatement la première et remplit le tableau des noms (NOS$(I)) 
depuis le premier jusqu’au NN**. Enfin, une fois que les dictionnaires 
sont chargés, nous terminons la ligne par un branchement au sous- 
programme de description des lieux. 


Lignes 2020 à 2050 


Ce sont les lignes de DATA. II s’agit respectivement des verbes et 
des noms français puis des verbes et des noms anglais. L’instruction 
READ lisant rous les caractères compris entre deux virgules, il est 
important de noter qu’il ne faut pas laisser d’espaces entre les virgules 
et les mots (exception faite pour le premier de la liste, qui est 
obligatoirement séparé du mot DATA par un espace, et pour le dernier, 
qui est immédiatement suivi d’un <return>). Si cette règle n’était pas 
respectée, les mots contenus dans les dictionnaires seraient constitués 
d’un ou deux caractères de plus (les espaces ajoutés) que ceux proposés 
par le joueur et aucune occurrence ne pourrait être trouvée par l’analyse 
de syntaxe. 


M DIRECTIONS 
TESTS INITIAUX 


SûG IF RESEUNU AND RENE" AND RESTE" 

HO RESEUO" AND Ré<r "I" OR R&="O" AND CSS 

A=6 OR RE='UU" AND C3S2=1 THEN &éf 

El IF Cris AND CES THEN IF Cases i THEN 
PRINT "UQOUS ETES 4 L'INTERIEUR D'UME PI 

ECE'":G0OTO 14 ELSE PRINT "YOU ARE INSIGE 

à ROCM'":G0OTO ne 

SZ IF Cr ANG Ci AND Cid OR Cr233 TH 

EH GOSUE S1@:i S K=û THEN 15 
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Ligne 500 


Si le mot contenu dans R$ est différent des cinq initiales de 
déplacement prévues OÙ que le mot est O alors que nous sommes en 
Angleterre OÙ que le mot est W et que nous nous trouvons en France, 
alors on va en 860 pour afficher un message, puis on retourne à la saisie. 


Ligne 510 


Si le numéro du lieu indique que l’on est à l’intérieur d’une pièce, 
on affiche un message puis on retourne à la saisie. 


Ligne 520 


Si l’on se trouve dans des lieux dans lesquels on ne peut se déplacer 
qu’à cheval, on va tester (GOSUB 810) si l’on est à pied. Si oui, on 
affiche un message puis on retourne à la saisie. 


BRANCHEMENTS 
536 ON C GOTO 54û,554,970,58û,556,570,é6û 
ü,570,570,614,620,620,6dû,568 , 650 ,é6û,51 
D,518,518, 516,5160,510,510,518,518,510,51 
ü,510,510,516,670,704,720,780,748,750,7é 
G,78û 


Étant donné que, dans la majorité des cas, chaque lieu fait l’objet 
de déplacements (ou de conditions sur les déplacements) particuliers, 
chacun des lieux sera traité séparément dans des modules différents. 
Donc, en fonction du numéro du lieu (C), nous nous branchons au 
module concerné. 

Chaque position de branchement derrière le GOTO doit correspondre 
au numéro du lieu : 540 correspond au lieu 1, 550 au lieu 2, 570 au 
lieu 3, etc. Autrement dit, il doit y avoir autant de branchements qu’il 
y a de lieux. C’est pourquoi, bien que nous ayons testé l’intérieur des 
pièces à la ligne 510, par sécurité nous remettons ce branchement 
dans la ligne 530 autant de fois qu’il est nécessaire. 


TRAITEMENT DES DIRECTIONS 


F8 IF RER, ENS C=sS:GOTO 16464 
FFE FRINT "PAS PKR Lé 15 IL FAUT BIEN DES 
LIMITES AU JEU l':GOTO 164 
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Il s’agit du principe général : nous avons choisi le 38° branchement 
de la ligne 530, nous nous trouvons donc dans le lieu n° 38 (devant 
la Jument bleue). Le seul déplacement possible est vers le nord. Si 
R$ contient la lettre N, alors on met dans C le numéro du lieu de 
destination, c’est-à-dire celui de la campagne (33), puis on effectue 
le branchement vers le module de description du lieu. Si R$ contient 
autre chose que N, la ligne 780 est sautée et la ligne 790 exécutée. 


SS& IF R$="E" THEN GOSUE SiG:1F K=i THEN 
C=33:GO0T0 1496 ELSE 14 
Séû IF R&="0" THEN C=7:G0T0 1084 ELSE 79 


Dot] cn 


Nous sommes devant la maison de la veuve (2° branchement, C = 2). 
Le déplacement vers l’est n’est permis que si l’on est à cheval. Par 
contre, le déplacement vers l’ouest est libre. Enfin, il n’y a aucun 
déplacement possible vers le nord ou vers le sud. 


Ligne 550 


Si R$ contient la lettre E, on se branche au sous-programme 810 
(test à pied ou à cheval) puis, dans le cas où l’on est à cheval, on 
met le numéro du lieu de destination dans C et on va à la description 
du lieu. Sinon, si l’on est à pied, on retourne à la saisie. 

Le traitement de la ligne 560 est tout à fait identique à celui présenté 
à la ligne 780. 


FE 


x, 


AND Faamrsn 


AMD RE="O" OR Ce 
S1:GOT0 1646 EL 


I c 
C=g AND R£="E" THEN C= 


Lorsque nous nous trouvons dans certains lieux (comme par exemple 
devant les cuisines, devant la salle des gardes et devant le boudoir de 
la reine), le lieu de destination est le même (cour de Versailles, dans 
notre cas). Il est donc intéressant, pour des raisons d’économie de 
mémoire, d’effectuer les trois tests dans une même ligne de programme, 
en les groupant à l’aide de OR et de AND. 

La compréhension de la ligne 570 n'offre aucune difficulté puisque, 
à part le regroupement des tests, nous utilisons le même principe de 
base que précédemment. 

Nous avons choisi les trois exemples les plus représentatifs. Il est 
inutile de les passer tous en revue puisqu'ils sont tous basés sur le 
même principe. 
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M MESSAGES COMMUNS 


Il existe deux types de messages affichés par le programme en 
réponse à une action décidée par le joueur : 


[1 Les messages particuliers : ils ne se rapportent qu’à une situation 
particulière et une seule, à un endroit précis du programme (description 
du lieu, par exemple). 





CT Les messages communs : ce sont des messages qui peuvent s’appli- 
quer à plusieurs situations. Ils seront donc constitués d’une seule ligne 
de programme qui pourra être appelée à partir de plusieurs endroits. 
Là encore, ils sont de deux types : les messages simples et les messages 
appliqués. Prenons deux exemples. 


1. Dans notre programme, il existe plusieurs lieux dans lesquels le 
joueur peut payer ou acheter quelque chose. Si le joueur n’a plus 
l’argent nécessaire, la phrase “VOUS N’AVEZ PLUS ASSEZ D’AR- 
GENT” sera affichée en message simple (voir ligne 16060). 


2. Dans la majorité des lieux, il existe des actions interdites. Chaque 
action est représentée par un verbe (stocké dans V$ à la ligne 115). 
Les messages appliqués (voir ligne 4100) seront donc constitués 
d’une partie invariable (“VOUS NE POUVEZ PAS”) à laquelle 
sera ajoutée une partie appliquée à la situation (impression du verbe 
V$). Bien entendu, ces deux types de messages communs pourront 
être appelés en fonction des besoins à partir de n’importe quel 
endroit du programme. 


Il est évident que si le concepteur ne prévoit, dans son logiciel, que 
des messages communs, le joueur éprouvera très vite une certaine 
lassitude ou un certain énervement qui se traduira par un désintéresse- 
ment plus ou moins rapide. Par contre, un logiciel ne comportant que 
des messages particuliers sera idéal au point de vue de l’intérêt du 
jeu, mais conduira vite à une place de stockage en mémoire prohibitive. 
Le concepteur doit donc s’attacher à un bon compromis entre les deux 
types de messages. 


M SAUVEGARDE DE LA PARTIE EN COURS 


Rien n’est plus crispant, lorsque l’on a souffert comme un damné 
pour en arriver presque au but final, de tomber sur un ultime piège 


qui nous envoie illico presto ad patres, et manu militari de surcroît ! 
On peut imaginer combien il est désespérant de reprendre la partie à 
zéro et de reparcourir le trajet complet pour revenir à l’instant critique. 
Il est donc fort utile de prévoir un sous-programme permettant, à tout 
instant, de sauver sur la disquette de jeu l’ensemble du trajet déjà 
effectué par le joueur, puis de le restituer à la demande. 

Pour cela, il suffira de sauvegarder uniquement le tableau des 
conditions tel qu’il se présente à ce moment-là. En effet, c’est lui et 
lui seul qui contient toutes les informations nécessaires au déroulement 
du jeu. 





1 GOSUE iFF44: IF ME= 4 THEN 
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D'une manière générale le sous-programme appelé par le verbe sauver 
est situé en 17300 et le sous-programme appelé par le verbe reprendre 
se trouve en 17500. 


Ligne 17000 


Elle commence par un branchement vers un sous-programme situé 
en 17700. Au retour de ce sous-programme, un test est effectué sur 
le numéro du verbe. Si celui-ci est reprendre (34), le branchement 
s'effectue à la ligne 17500. Sinon (si le verbe est sauver), la ligne 
suivante est exécutée. 
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Ligne 17300 


On commence par ouvrir un fichier de sortie qui s’appellera J. Puis 
nous donnons l’ordre à la machine d’assigner l’unité de disquette (# 9) 
en lui indiquant le nombre d’enregistrements qu’il y aura à transmettre 
(variable EN que nous avons initialisée à 39 en début de programme). 
Enfin, nous enregistrons sur le disque toutes les variables de conditions 
avant de fermer le fichier et de retourner à la saisie située en ligne 10. 


Ligne 17500 


Il s’agit donc des instructions de chargement des variables de 
conditions en mémoire à partir du disque. Il utilise le même principe 
que pour la ligne précédente. Cependant, à la fin de la ligne, nous 
retournons au programme de chargement du dictionnaire correspondant 
au lieu indiqué par la variable C33 % que nous venons de charger. 


Ligne 17700 


Étant donné que nous avons décidé de sauver les variables de 
conditions sur la face 1 de la première disquette, ce petit sous- 
programme teste simplement si la bonne face est introduite. Ce principe 
sera expliqué dans la deuxième partie de cet ouvrage. 


6. AIDE A LA MISE AU POINT 


Lors de la conception et de la mise au point d’un logiciel de jeu 
d’aventure, il est difficile de tout prévoir et notamment les “bugs” 
qui risquent de “planter” le programme. La mise au point est une 
opération longue et fastidieuse. En effet, il faut parcourir le jeu dans 
tous ses recoins pour tester toutes les conditions et toutes les possibilités 
prévues ou non prévues. Dans une des versions précédentes, obnubilés 
par les pièges que nous pourrions tendre à l’intérieur de l’estaminet, 
nous avions complètement oublié le piège à effet retardé. Ainsi, le 
fait de voir ou de ne pas voir les mousquetaires ne servait à rien pour 
la poursuite du jeu. L’ami auquel nous avions confié les disquettes 
aux fins de test a eu tôt fait de découvrir ce “détail”. D’autre part, 
personne n’est à l’abri d’une faute de frappe, surtout avec un listing 
aussi long. Au cours du test, lorsqu’une erreur est détectée par le 
programme, il est nécessaire d’en sortir, donc d’abandonner le jeu 
pour pouvoir la corriger. Il est alors fastidieux, surtout si l’erreur s’est 
produite vers la fin, de reprendre le jeu depuis le début et de reparcourir 
l’ensemble des lieux pour arriver à l’endroit incriminé avec les bons 
objets et les bonnes conditions. 

Pour ces raisons, nous avons inclus, dans le programme en cours 
d'élaboration, un sous-programme qui permet de changer la valeur des 
conditions, à n’importe quel moment et à partir de n’importe où. On 
pourra ainsi, par exemple, quel que soit le lieu où l’on se trouve, aller 
directement devant la Jument bleue (C = 38) pour tester ce qu’il s’y 
passe en fonction du cheval possédé (C11 % = O à 6) sans être obligé 
de retourner à l’écurie ou dans la cour de Buckingham pour y changer 
de bestiole. 

Bien entendu, ce sous-programme sera détruit dans la version défini- 
tive du jeu. 

Afin de faciliter les différentes visualisations ou modifications des 
variables conditions, nous utiliserons la méthode d’itération, en incluant 
le traitement dans une boucle agissant sur un tableau. C’est la raison 
pour laquelle, dans la phrase de conception, lorsque nous n’avions pas 
encore de problèmes de place mémoire, les conditions étaient inscrites 
dans un tableau de variables réelles indicées. Lorsque le programme a 
été terminé et testé, et qu’il a fallu y inclure la partie graphique, nous 
avons buté sur le fameux message MEMORY FULL ! Il a donc fallu 
“tailler dans la masse” et trouver des solutions. Une de celles-ci, étant 
donné l’utilisation intensive que nous faisions de ces conditions, était 
de modifier la manière de les stocker. C’est pourquoi, dans le programme 
définitif, elles ont toutes été transformées en variables entières, donc 
non indicées. En voici la raison : outre les premiers octets indiquant 


le type et le nom de la variable, le stockage de la valeur d’une variable 
simple entière ne prendra que 2 octets. Par contre, pour enregistrer la 
valeur d’une variable réelle indicée, 9 octets au minimum seront 
nécessaires. 

Dans un but de simplification, la transformation des variables réelles 
indicées en variables entières s’effectuera selon le principe suivant : à 
part la variable C(25) qui devient simplement C, les autres conditions 
gardent le même numéro (C(1) devient C1 %, C(2) devient C2 %, 
etc.). En ce qui concerne la variable C, il est plus intéressant de la 
conserver sous la forme de variable réelle (non indicée, bien sûr). En 
effet, la perte de place mémoire qui résulte de son stockage est largement 
compensée par l’économie d’octets réalisée en n’inscrivant que la 
lettre C (occupant 1 octet) au lieu de C25 % (occupant 4 octets). Cela 
n’est valable que pour cette variable, car elle est inscrite un nombre 
important de fois dans le programme BASIC. 

Puisqu’il s’agit d’un programme de mise au point, et afin de 
simplifier le chargement ou la lecture des variables de conditions à 
l’intérieur de boucles, le programme décrit ci-après utilise les variables 
réelles indicées. Les fonctions principales de cet utilitaire seront les 
suivantes : 


. Affichage des conditions, en clair et sous forme de tableau, avec, 
pour chacune d’elles, l’affichage de la valeur qu’elles contiennent. 


+ Demande de changement des conditions (numéro puis valeur), une 
par une, et par rebouclage systématique. 


. Affichage immédiat de la nouvelle valeur de la condition modifiée. 


- Sortie du rebouclage en indiquant une valeur code (99) lors de la 
demande du numéro de condition. 


* Après sortie du sous-programme, le branchement devra s’effectuer 
vers le sous-programme de chargement du dictionnaire. En effet, il 
se peut que le lieu de destination que l’on aura indiqué dans la 
variable correspondante (C(25)) soit situé dans un pays différent de 
celui dans lequel on se trouve. 





LG OI FGF UCR THEN SGE0 


Cette ligne doit être incluse dans l’analyse de syntaxe, dans la partie 
“traitement des initiales” située juste après la saisie de la réponse. Si 


R$ contient la lettre C (comme <C>ondition), on effectue un branche- 
ment direct vers le sous-programme de changement situé à partir de 
la ligne 30000. 
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Ligne 30000 


Après le nettoyage de l’écran et l’initialisation du pointeur de DATA 
sur la première valeur à lire (ligne 30200), on trouve une première 


boucle affichant les 20 premières conditions en colonne, sur la partie 
gauche de l’écran. Pour chaque valeur de I, on charge le DATA 
correspondant dans la variable CO$ que l’on imprime immédiatement 
à la colonne 1, ligne I, suivi de la valeur concernée (C(I-1) : C(0) 
pour I = 1, C(1) pour I = 2, etc.). 


Ligne 30010 


Onutilise exactement le même principe pour afficher les 19 conditions 
restantes sur la partie droite de l’écran et en regard des 20 premières. 


Ligne 30050 


Sous le tableau affiché, à la ligne 23, on commence par effacer le 
message précédent éventuel, en imprimant tout simplement une série 
de 79 espaces (et non pas 80 pour éviter le retour automatique du 
curseur à la ligne suivante). Puis on affiche la demande du numéro 
de condition à modifier (N). Si la valeur indiquée est 99 (fin des 
modifications), on retourne directement au sous-programme de charge- 
ment du dictionnaire après avoir effacé l’écran. Sinon (si l’on indique 
un autre chiffre que 99), on demande la valeur correspondante que 
l’on veut affecter à la variable indiquée (V). 


Ligne 30060 


On commence par stocker la valeur V indiquée dans la variable 
considérée C(N). Puis on positionne le curseur à l’endroit où il faudra 
inscrire la valeur modifiée. Si, par exemple, nous avons indiqué que 
la condition 8 devait être modifiée (ce chiffre est inférieur à 20), le 
curseur sera positionné en colonne 17 (juste à droite de la première 
liste), ligne 8 + 1 = 9 (ligne où se trouve inscrite la condition n° 8 
correspondante). De la même manière, si le numéro de condition à 
modifier est supérieur à 20, on positionne le curseur en colonne 37 
(juste à droite de la deuxième liste), ligne N — 19 (correspondant au 
numéro de condition choisi). 


Ligne 30070 


Le curseur ayant été préalablement positionné, il ne reste plus qu’à 
afficher la nouvelle valeur de la condition, puis à se brancher au 
sous-programme de chargement du dictionnaire. 
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Lignes 30200 et 30210 


Il s’agit là des lignes de DATA dans lesquelles seront indiquées les 
conditions en clair. Remarquez les espaces variables entre les mots 
ou les chiffres situés entre deux virgules : ils sont positionnés pour 
aligner toutes les conditions lorsqu'elles seront affichées à l’écran. 


7. LE SON SUR AMSTRAD 


Il n’est pas question, dans ce chapitre, de faire un cours magistral 
sur la théorie du son ou de la musique. Il existe par ailleurs une 
quantité d'ouvrages spécialisés traitant le sujet avec compétence et à 
tous les niveaux. 

Si une mélodie n’est pas strictement obligatoire lors de la construction 
ou simplement à la résolution d’un jeu d’aventure, elle est cependant 
nécessaire, au même titre que le graphisme, pour en faire un produit 
fini donc agréable à utiliser. 

L'objet de ce chapitre est, d’une part, de reprendre certains points 
qui nous ont semblé obscurs (voire erronés) afin de les éclaircir ou 
de les corriger et, d’autre part, de préciser certaines notions élémentaires 
de musique. Tout d’abord, nous vous proposons de remplacer le 
paragraphe 6.2 de la page 6.2 de votre manuel du 464 par le suivant : 


M QU'EST-CE QU’UN SON, UNE NOTE ? 


Un son est l’effet que produisent les variations de pression du milieu 
ambiant (l’air, en général) sur l’oreille. Plus ces variations sont rapides 
(c’est-à-dire plus la fréquence est élevée), plus le son sera aigu. 

Plus la différence de pression entre un maximum et un minimum 
(amplitude) est grande, plus le son sera fort. 






Pression 


(seconde) 






1 seconde 


Figure 7 : Représentation physique d'un son 


Un son produit par votre Amstrad sur l’un de ses trois canaux est 
constitué d’une suite d’oscillations qui se répètent pendant la durée 
du son. 


La période 
C’est la durée d’une oscillation, l’unité de temps étant la seconde. 


La fréquence 


C’est le nombre d’oscillations (ou le nombre de périodes) que l’on 
peut compter pendant une seconde. L’unité est le hertz (Hz). La 
Figure 7 représente un son de 2 oscillations par seconde (2 Hz). 


Une note de musique 


C’est un son dont la fréquence est musicalement et physiquement 
bien définie. Par convention internationale, la note de référence est le 
la dont la fréquence est actuellement fixée à 440 Hz. 


Un intervalle 


En physique des sons, un intervalle est la “distance” séparant deux 
notes de musique, mesurée en terme de rapport de fréquences. Si nous 
prenons l’exemple du do 32,703 Hz et du fa 43,654 Hz, l'intervalle 
séparant ces deux notes est de 43,654/32,703 = 1,33. 

En musique (pour mémoire, et en simplifiant grandement), les 
intervalles portent des noms particuliers : un intervalle de tierce (ou 
tierce) est le nom de l’intervalle séparant, par exemple, un do du mi 
immédiatement supérieur, ou un /a d’un si, ou encore un ré d’un fa 
dièse, etc. Il existe aussi des intervalles de seconde (do —-> ré par 
exemple), de quarte (do —-> fa), de quinte (do —> sol), de sixte (do —> 
la), et de septième (do —> si bémol). 

Pour les mathématiciens curieux possédant une certaine culture 
musicale, sachez que pour un instrument tempéré, le rapport de fréquence 
entre deux notes consécutives séparées par un demi-ton est égal à "K/2. 
A l’aide de cette formule et en partant de la fréquence du /a international, 
on établit le tableau de fréquence de la page A 7.1 du manuel du 464. 


Une octave 


(Eh oui ! c’est bien un nom féminin !) C’est l’intervalle particulier 
séparant deux notes portant le même nom : do -> do, ré -> ré, etc. 
Le rapport de fréquence entre ces deux notes est égal à 2. Cela veut 


dire qu’il faut multiplier la fréquence d’une note par 2 pour obtenir 
la fréquence de la même note située une octave au-dessus. 


Du seul point de vue mathématique et physique, la fréquence et la 
période sont liées par la relation : 


1 


Période (en secondes) = 
( ) Fréquence (en hertz) 

Pour des raisons purement électroniques et informatiques qu’il est 
inutile d’expliquer ici, les concepteurs de l’Amstrad ont défini une 
“période” adaptée à leurs besoins. Pour cet ordinateur, la relation 
période/fréquence est la suivante : 
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Périod iale AMSUTA) = ——— 
riode (spéciale Amstrad) Fréquence (en hertz) 


Les sceptiques qui se sont précipités sur leur calculette afin de 
vérifier la validité de la formule ci-dessus ont dû être déçus ! Nous 
confirmons cependant que c’est bien la formule indiquée dans le 
manuel (et donc le tableau final) qui est fausse ! Au /a 440 Hz 
correspond une période de 142. Au do 261,626 Hz correspond une 
période de 239. Il y a donc un décalage d’une octave entre les valeurs 
indiquées dans le tableau et la réalité. Si ce “détail” n’est pas trop 
gênant pour la programmation d’une mélodie de type familial, cela 
aurait pu agacer une oreille musicienne. 

Il est important de noter que plus la fréquence augmente, plus le 
son devient aigu et plus la période diminue. 


M NOTIONS DE PROGRAMMATION DES SONS 


Afin de ne pas surcharger cet ouvrage, centré sur la technique de 
réalisation d’un jeu d’aventure, nous réduirons notre étude sur la 
programmation des sons au mode d’emploi de l’instruction SOUND 
et des instructions directement associées (ENV, ENT). Nous ne parlerons 
que très peu de la technique des rendez-vous, en oubliant les queues 
et les interruptions. 

Comme vous pourrez vous en rendre compte soit en vous servant 
des disquettes associées à cet ouvrage, soit en introduisant directement 
les morceaux de programme listés plus loin, cette restriction ne vous 
empêchera pas, cependant, d’obtenir des résultats des plus intéressants. 


INSTRUCTION SOUND 


Elle permet de jouer un son et un seul. Il faudra donc utiliser une 
instruction SOUND par note à jouer. Elle comporte, dans l’ordre, et 
séparés par des virgules, les paramètres suivants : 


Canal 


L’Amstrad possède trois canaux différents appelés A, B et C. 
C’est-à-dire qu’il peut jouer trois airs différents en même temps (un 
par canal, comme s’il y avait trois instruments). Cela permet, par 
exemple, de jouer la mélodie sur le canal A, l’accompagnement sur 
le canal B et la rythmique sur le canal C. Ce paramètre est constitué 
d’un nombre compris entre 0 et 255. Comme nous ne parlerons que 
très fugitivement des rendez-vous entre canaux, nous nous limiterons 
aux nombres compris entre 0 et 7. 

La mention de cette valeur est obligatoire. Elle est destinée à aiguiller 
le son sur un ou plusieurs canaux, selon le code suivant : 


Le son n’est pas joué (aucun canal n’est spécifié). 

Le son est dirigé uniquement sur le canal A. 

Le son est dirigé uniquement sur le canal B. 

Le son est dirigé uniquement sur le canal C. 

(1 + 2), le son est dirigé à la fois sur les canaux A et B. 

(1 + 4), le son est dirigé à la fois sur les canaux A et C. 

(2 + 4), le son est dirigé à la fois sur les canaux B et C. 

(1 + 2 + 4), le son est dirigé à la fois sur les canaux À, B et C. 
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Période 


Sa mention est obligatoire. Il s’agit de la hauteur du son et elle est 
indiquée dans le tableau de la page A 7.1 du manuel du 464 (avec le 
décalage d’une octave, comme nous l’avons souligné dans le paragraphe 
précédent). C’est un nombre théoriquement compris entre 16 (si de 
l’octave 5) et 3822 (do de l’octave — 2). N'oubliez pas que plus ce 
nombre est élevé, plus le son est grave (et vice versa). Le chiffre O 
peut être indiqué lorsque aucun son ne doit être entendu. Comme nous 
le verrons plus loin, cette particularité (qui peut paraître bizarre, de 
prime abord) nous sera cependant utile pour se passer de la technique 


de rendez-vous. Enfin, rien n’interdit, au contraire, d’utiliser des chiffres 
non mentionnés dans le tableau. Par exemple, 2500 produira un son 
qui sera compris entre le sol et le sol dièse de l’octave — 2. 


Durée 


Sa mention est facultative. La durée élémentaire d’un son (le plus 
court qui puisse être produit) est fixée à 0,01 seconde. Le chiffre qui 
sera indiqué pour ce paramètre, multiplié par la durée élémentaire, 
représentera la durée totale du son en secondes. Ainsi, le chiffre 100 
produira un son d’une durée de 100 x 0,01 = 1 seconde. Donc, si le 
chiffre 1 est indiqué, l’ordinateur jouera la note pendant la durée 
élémentaire (0,01). Lorsque ce paramètre n’est pas précisé, la durée 
du son est fixée, par conception, à 0,2 seconde par défaut. 


Volume 


Mention facultative. Normalement, c’est un nombre de 0 à 7, pouvant 
atteindre O à 15 si une enveloppe de volume est précisée dans la 
même instruction SOUND. C’est l’équivalent du bouton de volume 
d’un amplificateur. Plus le chiffre est élevé, plus le son est fort. Si 
on ne précise pas ce paramètre, l’ordinateur utilisera de lui-même le 
chiffre 4. 


Enveloppe de volume et de ton 


Ce sont des paramètres facultatifs pouvant varier de 0 à 15. Il s’agit 
tout simplement du numéro de référence de l’enveloppe de volume 
ou de ton (voir ci-dessous ENV et ENT) que l’ordinateur doit utiliser 
pour jouer la note considérée. Par défaut, l’ordinateur utilise la valeur 
0 (pas d’enveloppe). 


Bruit 


C’est un paramètre facultatif pouvant varier de O0 à 31 (et même 
plus pour certains effets spéciaux dont nous ne parlerons pas ici). Ce 
paramètre permet de superposer au son déterminé ce que les acousticiens 
appellent un bruit blanc. I1 s’agit d’une sorte de souffle crachotant 
qui peut éventuellement servir pour imiter vaguement un tas de choses 
comme le bruit d’une cymbale ou, selon la durée et la hauteur du son 
qui lui est associé, le bruit d’une foule de spectateurs exprimant sa 
joie devant un but marqué. Par défaut, l’ordinateur utilise la valeur 0 
(pas de bruit). 
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INSTRUCTION ENV 


Lorsqu'une note est jouée sur un canal quelconque, sans mention 
d’enveloppe, le son apparaît brutalement avec une certaine puissance, 
garde cette puissance constante pendant toute la durée de la note, puis 
s'éteint aussi brutalement qu’il avait commencé. Cet effet désagréable 
peut être compensé en modulant l’attaque (montée plus ou moins 
progressive de la puissance du son), la fin (extinction progressive) et 
la puissance entre les deux. 

Cela est réalisé par l’instruction ENV. Cette instruction étant bien 
expliquée page 6.4 du manuel du 464, nous n’y reviendrons pas. 
Précisons seulement que le tout premier paramètre (N) est le numéro 
de repère de l’enveloppe. Ce numéro doit être un nombre de 1 à 15, 
ce qui autorise au maximum la définition de 15 enveloppes différentes 
qui pourront être appelées, en fonction des besoins, à partir des 
instructions SOUND (une seule enveloppe de volume par instruction). 
Les autres paramètres sont groupés en cinq sections de trois, ce qui 
permet de programmer, pour une enveloppe, jusqu’à cinq variations 
de volume pour la même note. Dans la majorité des cas, trois suffiront : 
une attaque, un sustain (maintien du son après le début de l’extinction) 
et une section intermédiaire. 

Plus la taille du pas sera grande, plus la variation de volume sera 
rapide. Plus le temps de pause sera grand, plus la durée du phénomène 
sera longue. Bien entendu, la hauteur du pas, multipliée par le nombre 
total de pas, doit être égale au volume indiqué dans l'instruction 
SOUND. De la même manière, le temps de pause, multiplié par le 
nombre total de pas, doit correspondre à la durée de cette note. 


INSTRUCTION ENT 


Elle a exactement la même structure et les mêmes limites que 
l'instruction ENV précédente (voir page 6.8 du manuel du 464). Au 
lieu de faire varier le volume sonore de la note, elle fait varier sa 
fréquence, ce qui donne un effet de glissando ou de vibrato. 

En ce qui concerne la taille du pas, il faut savoir que, contrairement 
à ce que la figure du manuel peut le laisser penser, une taille de pas 
positive donne une augmentation de la période, donc une diminution 
de la fréquence. Cela veut dire que le son devient plus grave lorsque 
la taille du pas est positive, et inversement. 

Pour chacune des deux instructions ENV et ENT, lorsqu'elles sont 
employées, le numéro d’enveloppe et une section complète (comprenant 


ses trois paramètres) sont obligatoires. Les quatre autres sections sont 
facultatives. 

Nous vous donnons ci-après quelques précisions complémentaires 
et importantes, qui ne figurent pas dans la notice ou dont les explications 
sont nébuleuses. Ces précisions sont volontairement partielles ou sim- 
plifiées par rapport aux possibilités de la machine. Ce faisant, nous 
pensons faciliter grandement la tâche des personnes essayant d’y voir 
clair afin de se lancer dans des réalisations musicales à caractère non 
professionnel. 

Au-dessus du HIMEM, dans la partie réservée à l’interpréteur et au 
système (entre les adresses 42600 et 49152), l’ Amstrad réserve une 
partie de mémoire RAM pour stocker les différentes instructions 
SOUND qu’il rencontre au cours du déroulement d’un programme. 
En première approximation, ces mémoires sont utilisées par l’ordinateur 
de la même manière que le terrain du jeu “puissance 4” qui ne 
comporterait que quatre cases sur trois. 


4 
Position 3 
des notes 
2 
1 
A B C 
Canal 
Figure 8 
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Prenons un exemple. Soit une ligne programme ainsi constituée : 


SOUND 1... : SOUND 1... : SOUND 1... : etc. 


(1 note) (2° note) (3° note), etc. 


c’est-à-dire une mélodie jouée entièrement sur le canal A. L'ordinateur 
va lire les instructions les unes à la suite des autres, repérer chaque 
fois le numéro de canal, et mettre les paramètres correspondants dans 
la colonne indiquée par ce numéro. Dans notre cas, les notes seront 
stockées à la queue leu leu dans la colonne A (note 1 dans Al, note 2 
dans A2, etc.) jusqu’à ce que l’ordinateur décide de les jouer. Au fur 
et à mesure que cette queue se libère, le processus continue jusqu’à 
la dernière instruction SOUND. 

L'affaire se complique un peu lorsqu’on veut faire jouer une mélodie 
à deux ou trois voix (une par canal). Prenons l’exemple d’un air 
comportant trois lignes mélodiques différentes. Chaque ligne doit être 
jouée en même temps que les autres sur un canal différent. Dans ce 
cas, il est nécessaire de grouper les trois instructions SOUND correspon- 
dant à la première note de chaque ligne musicale, les unes à la suite 
des autres (SOUND 1... : SOUND 2... : SOUND 4....), puis, à la suite, 
les trois instructions de la deuxième note de chacune des lignes, etc. 
Il ne faut surtout pas, à la limite, regrouper toutes les notes de la 
voie À, par exemple, puis, immédiatement à la suite, toutes les notes 
de la voie B, etc. En un mot, il faut obligatoirement écrire les instructions 
SOUND correspondant aux notes devant être jouées en même temps 
sur des canaux différents, les unes à la suite immédiate des autres, 
puis recommencer (éventuellement à la suite des précédentes) avec les 
notes suivantes. 

Mais, allez-vous penser à juste titre, il se peut que dans la progression 
de la ligne mélodique de la voie B, par exemple, il y ait un “trou” 
(un silence) en plein milieu, alors que sur les autres canaux des notes 
doivent être jouées. Dans notre exemple à trois voix, puisqu'il doit 
obligatoirement y avoir trois instructions SOUND groupées, il suffira 
d’y inclure l’instruction SOUND 2,0... (SOUND 1,0... pour la voie A, etc.). 
Étant donné qu’il y est indiqué une période égale à 0, la note sera 
présente, mais le son ne sera pas entendu ! 

La complication atteint le summum lorsqu'il est question de durée 
différente pour des notes jouées sur les trois canaux ! La Figure 9 
vous aidera à comprendre ce qu’il faut faire dans ce cas. 
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Canal A 


Canal B 


Canal A 


Canal B 





Durée des notes à jouer 


note Al (durée 4) note A2 (durée 4) 


note B1 (durée 4) silence 
(durée 2) 


Décomposition des durées 
note Al (durée 4) note A’2 
(durée 2) 


note B1 (durée 4) note B0O 


CT RE PRES OS 


(durée 2) 


silence 


note B2 (durée 4) 


note A’’2 note AO 
= © I 


(durée 2) (durée 2) 


note B’2 note B’’2 


(durée 2) (durée 2) 


Paramètres des instructions : SOUND 


en 


SOUND 1,a°°2,2 
SOUND 2,b’2,2 


SOUND L,a1,4 
SOUND 2,b1,4 
SOUND 1,a”2,2 
SOUND 2,0,2 


Ligne programme 


SOUND 1,0,2 
SOUND 2,b'’2,2 


10 SOUND 1a1,4 : SOUND 2,b1,4 : SOUND 1,a”2,2 : SOUND 2,0,2 : 
SOUND 1,a””2,2 : SOUND 2,b”2,2 : SOUND 1,0,2 : SOUND 2,b’’2,2 


Figure 9 : Programmation de notes sur 2 canaux différents 
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De toute façon, les exemples que nous allons traiter vous aideront 
à comprendre. Contrairement à ce qu’on pourrait penser, la programma- 
tion d’une mélodie n’est pas du tout compliquée. Il suffit simplement 
d’être très minutieux dans la réalisation du décompte des durées et 
du partage des notes selon le principe indiqué sur la Figure 9. Les 
durées indiquées tiennent compte de la durée totale d’une éventuelle 
enveloppe de volume ou de ton associée (attaque + sustain + variations 
intermédiaires). 


M APPLICATION A LA SONORISATION DU JEU 


Nous avons prévu trois sortes de musiques différentes : une pour 
le début (qui nous servira aussi pour la fin en cas de réussite), une 
pour la transition France-Angleterre et une pour le cas où l’on a perdu. 
Bien entendu, il vous est possible de les changer ou d’en ajouter 
d’autres. Dans ce cas, il faudra faire attention à la place mémoire... 


SONORISATION DE FIN 


Pour le cas où l’on perdrait, nous allons programmer un son un peu 
bizarre, composé d’un long glissando descendant se terminant par un 
vibrato lent, le tout noyé dans un bruit blanc. Nous mettrons donc en 
application l’instruction ENT et le paramètre bruit de l’instruction 
SOUND. 


C. 


SGg18 ENT 1,154,1,1:ENT £,20,-46,1,20,6,1 
Eb,-é,l,z6,é,l 

Sdëza SOUND 1,68,158,7,,1,1:SOUND 2,67,1 

Sù,7,1:S0UND 1,218,158,7,,1,1:SOUND 2,2 
17,158,7,1:SO0OUND 1,360,166,7,,2,1:SOUND 
2,367,1646,7,,2 


Ligne 50010 


Nous définissons deux enveloppes de ton qui nous serviront, l’une 
pour le glissando (ENT 1), l’autre pour le vibrato final (ENT 2). 

Le glissando (SOUND 1) étant une variation continue et constante 
de la période, une seule section suffira. Comme nous le verrons plus 
loin, lors de l’étude de la ligne 50020, le paramètre durée de chaque 


instruction SOUND est fixé à 150. D’autre part, pour que le son 
paraisse continu et relativement lent, après essais nous choisissons le 
temps de pause minimal, c’est-à-dire 1. Le paramètre nombre de pas 
sera donc égal à 150/1 = 150 (si le temps de pause avait été choisi à 
2, nous aurions obtenu un nombre de pas de 150/1 = 75). Enfin, la 
taille du pas est fixée à 1. 

Pour le vibrato final (ENT 2), nous souhaitons une variation en 
“dent de scie” de la fréquence deux fois de suite. Nous renseignons 
donc quatre sections de trois paramètres. La montée et la descente de 
chaque dent de scie est symétrique. Pour chaque section nous avons 
fixé, à l’oreille, un nombre de pas de 20, une taille de pas de —- 6 
pour la montée (+ 6 pour la descente) et un temps de pause de 1. 


Ligne 50020 


Une fois les enveloppes de ton fixées, il est nécessaire de donner à 
l’ordinateur l’ordre de jouer les sons. Vous remarquerez que nous 
avons programmé deux canaux (SOUND 1 et SOUND 2, correspondant 
aux canaux À et B). Pour l’instant, intéressons-nous aux instructions 
SOUND 1 (canal A). 

Pour la première instruction, nous partons du do de l’octave 4, dont 
la période est de 60. La durée est fixée à 150, le son aura un volume 
de 7, nous ne voulons pas d’enveloppe de volume (nous aurions pu 
mettre 0, mais cela gagne de la place mémoire !), l’enveloppe de ton 
est l'enveloppe n° 1 (glissando) et enfin, comme nous voulons ajouter 
du bruit blanc pas trop fort, nous mettons 1 comme dernier paramètre. 

Que va-t-il se passer ? Lorsqu'il va rencontrer la première instruction 
SOUND et son enveloppe ENT 1 associée, l’ordinateur va commencer 
par jouer la note de période 60. Puis, toutes les 0,1 seconde (puisque 
le temps de pause = 1), il va augmenter cette valeur de 1 (taille du 
pas = 1), et cela 150 fois de suite. Lorsqu'il aura fini, la période aura 
donc atteint la valeur 60 + 150 x 1 = 210 et le son s’arrêtera. Comme 
nous voulons continuer encore vers un son plus grave, il nous suffira 
d’ajouter une seconde instruction SOUND 1 avec 210 comme hauteur 
de note de départ et avec la même référence pour l’enveloppe de ton. 
La valeur finale de la période de ce second son atteindra 360. 

Mais, pensez-vous, pourquoi avoir deux instructions SOUND alors 
qu’une seule suffirait, à condition de préciser, dans ENT correspondant, 
un nombre de pas de 300 ? Tout simplement parce que ce paramètre 
ne peut prendre de valeur supérieure à 239 et que nous avons besoin 
de 300. Nous avons donc partagé cette valeur exactement en deux, de 
manière que la même instruction ENT serve pour les deux SOUND. 
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Pour notre goût, le son défini précédemment produit un effet trop 
clair, trop conventionnel et pas assez bizarre. Afin de rendre l'effet 
voulu, nous ajoutons une deuxième série d’instructions jouant sur le 
canal B (SOUND 2), strictement identique, mais décalée d’un intervalle 
dissonant (un intervalle de tierce do-mi est consonant. Un intervalle 
de seconde do-ré ou do-si bémol est dissonant). La valeur de période 
de départ pour cette paire de SOUND 2 sera donc de 67 (si bémol). 
Bien entendu, les deux séries de SOUND devront être imbriquées, 
comme on peut le voir à la ligne 50020, pour que ces sons soient 
joués en synchronisme. 

La dernière paire d’instructions SOUND 1 - SOUND 2 produira 
l’effet de vibrato final en prenant l’enveloppe de ton n° 2. La variation 
de ton se fait selon le même principe que précédemment et l’intervalle 
de seconde (dissonant) est conservé. 


MUSIQUE DE TRANSITION 


Puisqu’il s’agit de bateau et de mer, nous choisissons les premières 
mesures de l’air célèbre 1! était un petit navire dont vous trouverez 
la partition sur la Figure 10. 













La. [3 
HER NS A8 \PRES CUSEAN “ARE D BRON OR HUEEN HT CORRE 
SRRSCE DOCS om De RON SACRUN 2 LOUE LE CEE (0 RSR ES 
Lu] SR ES nd —_] SRE 


RÉ AÉ ALUE Sol AŸ MIA RE DO 





















Mi mini Sol mi FA ni mi 


Figure 10 : Il était un petit navire. 


Comme pour le son précédent, nous allons rendre cette mélodie 
surprenante et sortant de l’ordinaire par l’utilisation des intervalles 
dissonants et l’adjonction de bruit blanc. La mélodie principale sera 
jouée sur le canal A, tandis que la mélodie translatée sera jouée en 
synchronisme sur le canal B. Seul le canal A se verra affecter le bruit 
blanc. 

Commençons par le plus facile : en partant du mi de l’octave 4, les 
périodes des différentes notes utilisées sont les suivantes (les notes 
devant être jouées en même temps se trouvent l’une au-dessus de 
l’autre) : 


Canal A MI = 47 SOL = 80 FA = 45 RE=53 DO = 60 
Canal B DO = 56 MI=95 RE=53 SI=63 LA =71 


Afin d’équilibrer la puissance sonore des deux mélodies, nous avons 
choisi un volume de 15 sur le canal A et de 3 sur le canal B. Le bruit 
ajouté sur le canal A sera de 1. Enfin, par expérience, ou à l’oreille à 
l’aide d’essais, nous déterminons une durée de 56 pour la noire (d) 
donc de 56/2 = 28 pour la croche (JD. Le paramètre durée des instructions 
SOUND doit donc être de 56 lorsqu'elles jouent une noire et de 28 
lorsqu'elles jouent une croche. En faisant la somme de tous les pas 
de chacune des éventuelles enveloppes de volume associées, on devrait 
trouver les mêmes chiffres. 

Jouée telle quelle, sans enveloppe de volume, cette mélodie n’est 
pas parfaite. Il y manque un “piqué” sur certaines notes (notes dont 
la partie entendue est brève comparée à la durée totale). Nous pourrions 
utiliser le moyen indiqué sur la Figure 9 et diviser chaque note en 
“sous-notes” avec utilisation des SOUND 1,0. En fait, puisque la 
même mélodie est jouée sur les deux canaux, nous allons utiliser une 
deuxième méthode qui consiste à définir une enveloppe de volume 
spécialement adaptée. Ce principe est illustré sur la Figure 11. 


Volume: 


Durée totale de la note 


15 


10 





0 S 10 15 20 25 30 Unité de 
temps 


Figure 11 : Diagramme de l'instruction ENV 1. 


La programmation d’un tel son sera donc : 
ENV 1,1,0,15,2,- 7,2 : SOUND 1,47,28,15,1. 


Dans ce cas, que va-t-il se passer ? La note va effectivement durer 
28 unités de temps, comme indiqué dans l’instruction SOUND. Par 
contre, à cause des paramètres de l’enveloppe de volume, elle ne va 
être entendue que pendant 17 unités de temps (dont une à demi- 
puissance). Pendant les 11 unités de temps restant, le volume est à O. 

Le même principe est appliqué pour le canal B pour obtenir la ligne : 


ENV 2,1,0,15,3,- 1,1 : SOUND 2,56,28,3,2. 


Sean RESTORE ASAIG:ENU 1,1,6, 2 des 
ENV 2,1,68,15,3,-1,1:FOR I=i TO 18:READ F 
1,60,E,F2:S0UND 1F7,F1,D,123,E,,1:S0OUND 164, 
F2Z,4.8%#0,3,Z2#E:NEXT :RETURH 





45û 1 & 28,1,56,47,28,1 
,Sé 45,28,4,53,47, 
28, ,63,53,28,1,63 
,53 S6,0,75,53,56 
ä,é ,153,56,4,63,6 
,28 





Ligne 45000 


Cette ligne débute par une instruction RESTORE indiquant au 
programme où il faut chercher les valeurs à charger (nous allons voir 
pourquoi un peu plus loin). Nous trouvons ensuite les deux enveloppes 
de volume définies précédemment. 

Étant donné que nous avons 18 notes à programmer, il faudra donc 
inscrire 36 instructions SOUND complètes les unes à la suite des 
autres, ce qui tient une place rédhibitoire. Il est plus intéressant de les 
inclure dans une boucle comprenant les deux instructions SOUND 1 
et SOUND 2 précédées par une instruction READ destinée à aller lire 
les paramètres variables des deux instructions. La borne supérieure de 
la boucle sera égale au nombre de notes à jouer. 

Nous allons encore améliorer notre petite mélodie en raccourcissant 
la durée de toutes les instructions SOUND 2 de 20 % (0,8 x D). Jouée 
ainsi, sans autre précaution, cela donne un mélange cacophonique. En 
effet, les notes de la voie B n’ayant plus la même durée que celles 


de la voie À, il arrive un moment où elles ont tendance à être jouées 
avant la note correspondante de la voie A. Pour remédier à cela, nous 
allons donner l’ordre à toutes les notes d’attendre que la plus lente ait 
fini de jouer pour démarrer en même temps qu’elle. Dans notre cas 
(où toutes les notes jouées sur le canal A possèdent une note correspon- 
dante sur la voie B), cela se réalise en donnant un numéro de canal 
particulier à chaque instruction SOUND : 17 = 1 (son envoyé sur la 
voie A) + 16 (rendez-vous avec la voie B) et 10 = 2 (son envoyé sur 
la voie B) + 8 (rendez-vous avec la voie A). Chaque fois, par exemple, 
qu’une note de la voie B est terminée, le chiffre 10 de l'instruction 
suivante concernant cette voie indique à l’ordinateur qu’il faut attendre 
l'apparition de la prochaine instruction de la voie À comportant le 
numéro de canal 17. Nous n’approfondirons pas plus cette technique. 


Ligne 45010 


Il s’agit de la ligne des DATA. Il y sera mentionné, les uns à la 
suite des autres et dans l’ordre strict dans lequel ils devront être lus, 
tous les paramètres à utiliser par les instructions SOUND de la boucle. 


MUSIQUE DE DÉBUT 


Nous avons gardé le meilleur pour la fin ! Vous trouverez en Figure 12 
l'instrument de torture : une mélodie inédite dont la ligne mélodique 
(portée supérieure) sera jouée sur le canal À et l’accompagnement 
(portée du bas) sur le canal B. Contrairement à la mélodie précédente, 
on peut remarquer qu'entre la ligne mélodique et la ligne d’accompagne- 
ment les notes sont différentes tant en nombre qu’en durée. 

Comme le choix des différents paramètres et leur programmation 
dans les instructions ressemble fort à ce que nous venons de voir, 
nous n'insisterons pas plus longtemps pour pouvoir nous consacrer 
au partage des temps, mesure par mesure. 

Précisons simplement que puisque nous voulons une imitation de 
piccolo (flûte aiguë), nous choisirons une période de 24 pour la 
première note de la mélodie (mi de l’octave 5) et de 47 pour la 
première note de l’accompagnement (mi de l’octave 4). Les différentes 
périodes des notes suivantes s’en déduisent. Le tempo sera assez 
rapide : 28 unités de temps pour la noire (14 pour la croche). 

Vous trouverez sur les Figures 13, 14 et 15 les diagrammes des 
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Figure 12 : Les Trois Mousquetaires. 


durées des mesures représentatives prises comme exemple (mesures 
1, 4 et 8). 

Sur chaque figure on montre d’abord le diagramme des durées 
(voies A et B) de la mesure concernée, directement traduit de la 
partition. En dessous, on peut voir le diagramme modifié de façon 
qu’il y ait autant de notes de même durée sur la voie A que sur la 
voie B (le premier mi de la voie A pour la première mesure a été 
divisé en trois). Enfin, nous indiquons les instructions qu’il faut pour 
jouer cette mesure. Sur chaque diagramme, en dessous du nom de la 
note, figure sa période puis sa durée. 

Cette méthode ne met pas en valeur toutes les possibilités de 
l’Amstrad dans ce domaine. L’explication complète de la technique 
des sons sur cet appareil dépasse largement le cadre de cet ouvrage. 
Elle a cependant le mérite d’être simple et rapide à mettre en œuvre. 
A partir d’une partition, elle permettra aux personnes n’ayant que des 
rudiments de solfège de programmer n’importe quelle mélodie complexe 
ou non, sur 1, 2 ou 3 canaux. 

Nous pouvons maintenant examiner le programme complet de cette 
mélodie. 

Les quatre premières mesures seront jouées deux fois de suite. Les 
quatre mesures suivantes ne seront jouées qu’une seule fois, puis nous 
terminerons en jouant encore deux fois les quatre premières mesures. 

Bien entendu, s’il fallait inscrire, les unes à la suite des autres, 
toutes les instructions SOUND accompagnées de leurs paramètres, il 
en faudrait plus de 300 et la mémoire RAM perdrait quelque 7 ou 
8K octets, au détriment du programme principal. Nous réduirons 
notablement cette place mémoire en incluant deux instructions SOUND 
dans une boucle. 


Diagramme des durées partition 


Mi Sol Do Sbl 
24-42 40-14 30-28 20-28 
Voie A 


Mi Sol Mi Ré Do Sol Do Mi 
47-14 40-14 47-14 53-14 60-14 80-14 60-14 47-14 


Diagramme des durées à programmer 


Mi Mi Mi Sol Do Do Sol Sol 


l St REA 1] A _ a | est 


Mi Sol Mi Ré Do Sol Do Mi 
47-14, 40-14, 47-14, 53-14, 60-14, 80-14, 60-14, 47-14 


++ — 


Suite des instructions SOUND correspondantes 


SOUND 1,24,14 : SOUND 2,47,14 : SOUND 1,24,14 : SOUND 2,40,14 : SOUND 
1,24,14 : SOUND 2,47,14 : SOUND 1,40,14 : SOUND 2,53,14 : SOUND 1,30,14 : 
SOUND 2,60,14 : SOUND 1,30,14 : SOUND 2,80,14 : SOUND 1,20,14 : SOUND 
2,60,14 : SOUND 1,20,14 : SOUND 2,47,14 


Figure 13 : Diagramme des durées, première mesure 
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Diagramme des durées partition 


Sol Fa Mi Ré Do 

20-14 22-14 24-14 27-14 30-28 pause 
SE RE CRE RS À = 

Sol Sol Si Ré Do 

40-14 80-14 63-14 53-14 60-28 pause 


+ 


Diagramme des durées à programmer 


Sol Fa Mi Ré Do pause 
20-14 4, 22-14 N 24-14 NL 27-14 30-28 0-28 


a ———— 


Sol Sol Si RE Do pause 
40-14 , 80-14 , 63-14 | 53-14 60-28 0-28 


à 


Suite des instructions SOUND correspondantes 


SOUND 1,20,14 : SOUND 2,40,14 : SOUND 1,22,14 : SOUND 2,80,14 : SOUND 
1,24,14 : SOUND 2,63,14 : SOUND 1,27,14 : SOUND 2,53,14 : SOUND 1,30,28 : 
SOUND 2,60,28 : SOUND 1,0,28 : SOUND 2,0,28 


Figure 14 : Diagramme des durées, quatrième mesure 
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Diagramme des durées partition 


4 x Sol _ La +1x Sol 
Fa # Sol La Fa 20-6  _ 18-6 20-8 


21-14 2014 1814 2 


de Sol _ La Sol 


Fa# Ré Do La 806 _716 *1* 808 
42-14 53-14 60-14 71-14 


5 


Diagramme des durées à programmer 


Idem à la partition 
Idem à la partition 


D 


Suite des instructions SOUND correspondantes 


SOUND 1,21,14 : SOUND 2,42,14 : SOUND 1,20,14 : SOUND 2,53,14 : SOUND 
1,18,14 : SOUND 2,60,14 : SOUND 1,21,14 : SOUND 2,71,14 : SOUND 1,20,6 : 
SOUND 2,80,6 : SOUND 1,18,6 : SOUND 2,71,6 : SOUND 1,20,6 : SOUND 2,80,6 : 
SOUND 1,18,6 : SOUND 2,71,6 : SOUND 1,20,6 : SOUND 2,80,6 : SOUND 1,18,6 : 
SOUND 2,71,6 : SOUND 1,20,6 : SOUND 2,80,6 : SOUND 1,18,6 : SOUND 2,716 : 
SOUND 1,20,8 : SOUND 2,80,8 


Figure 15 : Diagramme des durées, huitième mesure 
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4G80û RESTORE 4484@:E=@:ENU0 1,3,-5,8:ENV 
2,1,-15,8 

44814 FOR I=i TO 2 

49815 READ F1,D1,E1,F2,D2:IF Fi=-1 THEN 
qûë3à ELSE IF Fi=-2 THEN I=2:E=1:GOT0 4@ 
a38 

44824 IF INKEY#<>"" THEN RETURN ELSE SOU 

ND 1,F1,D1,15,E1:SOUND 2,F2,D2,4:G0T0 48 
ÿ15 

448030 RESTORE 40848:NEXT:IF Fi=-2 THEN 4 
Gi ELSE IF E=1 THEN RETURN ELSE RESTOR 
E 48844:GO0TO 44418 

48848 DATA 24,14,8,47,14,24,14,8,46,14,2 
4,14,8,47,14,48,14,4,53,14,20,14,1,46,14 
14,14,2,80,14,24,14,1,60,14,@,14,2,47,14 
,20:14,1,40,14,22;:14,1,45;,14:24,14,1:47; 
14,27,14,1,53,14,24,14,1,47,14,8,14,2,4û 
,14,34,14,1,47,14,4,14,2,86,14,24,14,6,4 
7,14,24,14,6 

48858 DATA 88,14,24,14,6,63, 
3,14,36,14,1,40,14,4,14,2,86, 
48,14,8,14,2,47,14,20,14,1,4û 
,80,14,24,14,1,63,14,27,14,1, 
énsé,-ti11,1,1 

aûén DATA 32,14,4,63,14,30,14,û,60,14,2 
7,14,1,53,14,0,14,2,63,14,24,14, i, 6,14, 

114,2:53,14,27,14,1,80,14,0,14,2,63,14, 

1. 14,1,80,14,8,14,2,62,14,27,14,1,53,14 


3 
,34,14,1,47,14,22,14,1,92,14,20,14,:1,47, 
14,27,14,1,93,14,6,14,2,40,14,32,14,û,232 

14,38,14,6,36 


daë7û DATA 14,27,28,1,27,28,32,14,0,63,1 
4,30,14,8,68,14,27,28,1,82,28,20,28,1,40 
,28,21,14,1,45,14,26,14,1,52,14,18,14,1, 
60,14,21,14,1,71,14,260,6,0,80,6,18,6,0,7 
1,6,20,6,0,80,6,18,6,0,71,6,20,6,4,84,6, 
18,6,0,71,6,20,6,0,80,6,18,6,60,71,6,20,8 
.8.80,8 

48g8ñ DATA -2,1,1,1,1 


Les lignes de DATA 40040 et 40050 contiennent les paramètres des 
quatre premières mesures. Les lignes 40060 à 40080 contiennent les 
paramètres des quatre mesures suivantes. Notez les dernières valeurs 
des lignes 40050 et 40080 : ce sont des valeurs repères qui nous 
permettront de tester si la ligne mélodique est terminée. 


Ligne 40000 


On positionne le pointeur de DATA sur la première valeur de la 
ligne 40040. Puis on met le drapeau E à zéro et enfin, on définit deux 
enveloppes de volume. 


Ligne 40010 


C’est le début de la boucle qui permet de jouer deux fois les quatre 
premières mesures. 


Ligne 40015 


L’instruction READ lit les cinq premières valeurs de la ligne 40040 
qui sont respectivement la période de la note du canal A (F1), la durée 
de cette note (D1), son numéro d’enveloppe (E1), la période de la 
note du canal B (F2) et sa durée (D2). 

Si F1 est égal à la valeur repère — 1 (fin des quatre premières 
mesures), on se branche en ligne 40030 pour recommencer à jouer les 
quatre premières mesures. 

Si F1 est égal à la valeur repère —2 (fin des quatre mesures 
suivantes), nous mettons dans le compteur de boucle sa valeur finale 
pour éviter de rejouer une deuxième fois ces quatre mesures, puis on 
positionne E à 1 pour savoir qu’il faudra s’arrêter après avoir joué 
encore deux fois les quatre premières mesures. Enfin on se branche à 
la ligne 40030. 


Ligne 40020 


Afin de laisser la possibilité d’arrêter la musique à tout moment, 
on inclut l'instruction INKEY$. Lorsqu'une touche est frappée, on 
sort du sous-programme musical et on retourne au programme principal. 

Sinon, on joue sur les deux canaux les deux instructions SOUND 
dont les paramètres F1, D1, E1, F2 et D2 viennent d’être lus puis on 
retourne en 40015 pour relire les cinq paramètres suivants. 
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Ligne 40030 


Rappelons qu’on y vient à partir de la ligne 40015 si F1 = — 1 (fin 
des quatre premières mesures) ou si F2 = — 2 (fin des quatre mesures 
suivantes), c’est-à-dire lorsqu'il faut rejouer les quatre premières me- 
sures, sauf si la fin de la boucle est atteinte. 

On commence par positionner le pointeur de DATA sur la première 
valeur de la ligne 40040, puis on continue la boucle si elle n’est pas 
terminée. 

Si F1 = —2 (fin des mesures 4 à 8), on retourne au début de la 
boucle en 40010, pour jouer encore deux fois les quatre premières 
mesures. Une fois cela terminé, on trouve — 1 dans F1. Donc, arrivé 
au test IF F1 = — 2, celui-ci sera faux et on passera à la suite de la ligne. 

Sinon, si E = 1 (on a déjà joué les mesures 4 à 8, sous-entendu : 
on vient de jouer deux fois les quatre premières mesures), alors on 
retourne au programme principal. 

Sinon (si E est différent de 1) on n’a pas encore joué les mesures 
4 à 8 et on retourne en 40010 pour le faire. 


Si vous avez eu la patience de nous lire jusqu’à présent, nous vous 
incitons à continuer ! En effet, la deuxième partie de cet ouvrage est 
consacrée à la réalisation des images devant agrémenter le jeu. 

Comme nous vous l’avons suggéré précédemment, un jeu d’aventure 
peut se passer d’images. Les seules indications sont alors fournies par 
le texte qui va défiler sur l’écran. Par expérience, et en tant qu’utilisa- 
teurs, nous savons qu’une telle présentation devient vite lassante et 
monotone. De plus, le joueur, malgré la possibilité d’imaginer en 
pensée son propre décor, a du mal à entrer dans le jeu et ne fait que 
suivre l’action de l’extérieur. 

Afin que le travail que vous aurez fourni pour entrer le listing 
complet de ce jeu (ou de celui que vous aurez créé) ne vous déçoive 
pas lors de son utilisation, il sera donc nécessaire d’y inclure des 
images. Le résultat sera alors surprenant de “professionnalisme” et 
d'intérêt. 

Pour vous faciliter cette tâche, nous allons d’abord vous proposer 
un logiciel spécialisé dans la création d’images, puis, pour minimiser 
les ennuis de place mémoire, un compresseur/décompresseur d’images 
graphiques. 

Dans un dernier temps, nous vous indiquerons le moyen d’inclure 
ces images dans le programme principal. 
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8. LE LOGICIEL CREIMAGE 


Notre logiciel CREIMAGE d'aide à la création d’images graphiques 
va comporter les fonctions suivantes : 

Choix de la palette de couleurs (couleurs associées aux encres 0,1,2,3). 

Choix de la couleur de la bordure. 

Choix de l’encre du curseur graphique. 


Déplacement du curseur graphique, qui laissera sa trace derrière lui 
à l’aide des flèches du clavier. 


Déplacement du curseur graphique sans laisser de trace en donnant 
les coordonnées absolues du point où l’on désire le placer. 


Tracé d’une droite commençant au point où se trouve le curseur 
graphique et se terminant à un point dont on indiquera les coordonnées 
absolues, avec choix de l’encre de la droite. 


Tracé d’une droite commençant au point où se trouve le curseur 
graphique et se terminant à un point dont on indiquera les coordonnées 
relatives par rapport à l’origine de la droite, avec choix de l’encre 
de la droite. 


Tracé de figures : rectangle, triangle, cercle avec choix de la couleur. 
Coloriage de zones : rectangle, triangle, cercle. 


Copie d’une image à l’intérieur des mémoires de l’ordinateur, ce 
qui permettra de geler une image avant d’y effectuer des modifications 
lorsque l’on n’est pas sûr du résultat. 


Restitution de l’image copiée précédente. 


Écriture d’un fichier binaire de l’image sur disquette avec ou sans 
compression d’image (ou sur cassette). 


Chargement d’un fichier binaire correspondant à une image compres- 
sée ou non. 


Juxtaposition de deux images. 


Création d’une image symétrique de l’image actuellement sur l’écran 
(image vue dans un miroir). 


Permutation des couleurs associées à deux encres sans changement 
des couleurs de l’image. 


Catalogue d’une disquette. 


Effacement de n’importe quel fichier d’une disquette. 
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Aide-mémoire sur les couleurs disponibles et les couleurs actuellement 
choisies. 


Aide-mémoire sur les fonctions disponibles de CREIMAGE. 


Examinons tout d’abord la manière dont le programme et ses 
sous-programmes en langage machine vont être implantés. 


C] La zone d’adresses 49152 à 65535 correspond aux mémoires qui 
permettent de faire l’image à l’écran ; nous l’appellerons IMAGE. 


[] La zone d’adresses 26204 à 42587 correspond aux mémoires qui 
permettent de copier l’image de l’écran ; nous l’appellerons IMAGE2. 


[1 Pour exécuter les différentes fonctions décrites précédemment, il 
sera nécessaire de faire apparaître des messages à l’écran, messages 
qui se superposeront à l’image en cours de réalisation ; pour ne pas 
perdre cette image, nous la recopierons dans la zone d’adresses 9725 
à 26108 que nous appellerons IMAGE3, puis les messages seront 
envoyés en superposition et, quand tous les messages seront terminés, 
nous recopierons IMAGE3 dans IMAGE. 


[] Pour terminer, la zone d’adresses 367 à 9724 sera celle réservée 
au programme CREIMAGE et à ses variables associées. Pour cela, 
nous déclarerons un HIMEM de 9724. Mais la place mémoire limitée 
qui nous reste sera insuffisante pour exécuter des ordres SAVE ou 
LOAD ; en effet L'AMSDOS a besoin d’une zone mémoire libre située 
entre STREND et FRETOP (voir chapitre suivant pour l’explication 
de ces termes) dont la taille est environ de 8 K octets pour effectuer 
ses opérations d’écriture ou de lecture. Il est évident qu'avec 9 357 
octets libres pour le programme nous ne pourrons pas disposer de cette 
place, nous ferons donc de l’allocation dynamique de mémoires, c’est- 
à-dire que nous modifierons le HIMEM en cours de travail du programme 
lorsque nous aurons à exécuter des ordres SAVE ou LOAD. Nous 
placerons dans ce cas le HIMEM en 26109, ce qui nous libérera les 
16 K octets de IMAGE3. Quand les ordres SAVE ou LOAD auront été 
exécutés, nous replacerons le HIMEM en 9724. Cette opération n’est 
possible cependant qu’à condition de ne pas avoir besoin de variables 
alphanumériques pendant l’opération, car l’interpréteur BASIC se réfère 
à la valeur du HIMEM pour écrire ou lire les variables alphanumériques. 
Si on lui change cette valeur, il risque de ne pas retrouver ses variables 
ou de les écrire à un mauvais endroit. 

Enfin la zone IMAGE2 sera aussi utilisée pour les opérations de 
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lecture ou d’écriture sur disquette ; deux cas différents suivant qu’il 
y aura ou non compression de l’image avant écriture ou décompression 
ou non après lecture (les compression/décompression d’image seront 
traitées plus loin dans ce livre) : 


ÉCRITURE/LECTURE SANS COMPRESSION 


Pour ne pas avoir le phénomène d’apparition des images par lignes 
entrelacées, nous commencerons par copier IMAGEI1 dans IMAGE?, 
puis c’est cette IMAGE2 que nous écrirons sur la disquette sous forme 
d’un fichier binaire. Au chargement, ce fichier binaire va se placer 
dans la zone de IMAGE, car un fichier binaire se charge à la place 
qu’il occupait au moment de l’écriture sur la disquette (en tête de 
fichier se trouve l’adresse d’origine et la longueur du fichier) et nous 
terminerons par une copie de IMAGE2 dans IMAGE. 


ÉCRITURE/LECTURE AVEC COMPRESSION 


Le compresseur d’image que nous allons utiliser génère une image 
compressée à partir de l’adresse 26204, c’est-à-dire à la place de 
IMAGE. La longueur de cette image compressée se trouvera dans les 
mémoires d’adresses 26189 et 26190 que nous pouvons lire avec des 
PEEK. Nous allons faire en sorte que l’image compressée ait une taille 
inférieure à 8 K octets, soit 8 192 octets pour accepter de faire l’écriture 
sur disquette. Dans ce cas, l’image compressée n’occupe que la moitié 
inférieure de la zone IMAGE2 ; nous appellerons cette zone IMAGE?22, 
la seconde moitié supérieure sera appelée IMAGE?21. Après vérification 
que la longueur de l’image compressée est inférieure à 8 K, nous 
copierons IMAGE22 dans IMAGE21 et c’est IMAGE21 que nous 
écrirons sur disquette. Cette manipulation est intéressante pour les 
programmes qui utiliseront les images compressées, il suffira de réserver 
uniquement la zone correspondant à IMAGE21 et d’effectuer la décom- 
pression en direction de IMAGEI, d’où un gain de place pour les 
programmes BASIC ou autres. 

Par contre, la compression ne peut pas être effectuée à partir de 
l’adresse 34396 (début de IMAGE21), car on ne connaît pas a priori 
le résultat de la compression en longueur, celle-ci peut être supérieure 
à 8 K octets. Si l’on effectue la compression à partir de l’adresse 
34396 et que la taille de l’image compressée est supérieure à 8 K 
octets, notre programme de compression va écrire dans la zone réservée 
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à l’interpréteur BASIC, ce qui aura pour effet de planter l’ordinateur 
et de vous faire “perdre la main”. Vous ne pourrez retravailler qu’en 
arrêtant complètement l’ordinateur puis en le remettant sous tension. 

Ce type de “plantage” peut bien sûr arriver aussi si l’image compres- 
sée a une taille supérieure à 16 K octets, ce qui heureusement est très 
rare. Pour être sûr du résultat, il faudrait effectuer la compression à 
partir du début de IMAGE3 pour avoir 32 K octets de place, mais 
cela poserait aussi des problèmes. 


Avant d'étudier en détail le logiciel CREIMAGE, nous avons besoin 
de connaître un peu mieux notre Amstrad. D’autre part, nous serons 
aussi obligés de faire appel à des programmes en langage machine, 
nous donnerons donc quelques informations sur le fonctionnement du 
microprocesseur et des programmes en langage machine. 

Pour finir, signalons qu’il existe quelques différences entre les 
Amstrad CPC 464, CPC 664 et CPC 6128, la seule qui aura une 
influence sur nos programmes provient d’un “BUG” dans l’interpréteur 
BASIC du CPC 464 (utilisation multiple de l’ordre MEMORY) ; ce 
BUG a été corrigé pour le CPC 6128, nous serons donc obligés de le 
“contourner” par une astuce dans le logiciel CREIMAGE pour CPC 464 
(CREIMAGE utilise souvent l’ordre MEMORY). Le programme final 
de jeu d’aventure sera le même pour ces trois Amstrad, mais le logiciel 
CREIMAGE aura quelques différences. 
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9. QUELQUES RENSEIGNEMENTS 
SUR LE MICROPROCESSEUR 
DE L’AMSTRAD 


M LE MICROPROCESSEUR Z80 


Un ordinateur est composé de différents éléments dont le point 
central est le microprocesseur. Dans le cas de l’ Amstrad, il s’agit du Z80. 

Le microprocesseur est capable d’effectuer certaines opérations lo- 
giques ou arithmétiques ainsi que d’échanger des informations avec 
les autres éléments qui constituent l’ordinateur. Nous parlons actuelle- 
ment des possibilités données aux circuits électroniques qui le compo- 
sent, et non des possibilités que l’on peut lui donner par des logiciels. 

Voici le rôle de quelques-uns de ses composants, ces quelques notions 
nous seront utiles dans la suite de ce livre. 


Dans un ordinateur, les types de mémoires suivants sont habituelle- 
ment disponibles : 


Les ROM, Read Only Memory 


Mémoires accessibles uniquement en lecture, il n’est pas possible 
d’y écrire, sauf au moment de leur réalisation. Ce sont les mémoires 
mortes de l’ordinateur. 


Les RAM, Random Access Memory 


Mémoires accessibles en lecture et en écriture. Ce sont les mémoires 
vives de l’ordinateur. 


Les registres 


Mémoires de travail du microprocesseur, elles ont un temps d’accès 
plus court et certaines sont dotées d’un nom particulier. 


L’ALU, Arithmetical Logical Unit 


C’est le cœur du microprocesseur. Il est doté de la possibilité 
d’effectuer des opérations arithmétiques et logiques. 


M FONCTIONNEMENT DU Z80 
Examinons maintenant les registres du Z80 : 


L'accumulateur 
Noté A, ce registre est associé à l’ ALU pour lui permettre de travailler. 
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Les registres universels 

Ils peuvent avoir plusieurs utilisations : ils ne sont pas affectés a 
priori à une tâche particulière. 
Les registres d'adresse 


Notés BC / DE / HL, ce sont des registres doubles : deux registres, 
indépendants physiquement, sont associés dans leur désignation pour 
la gestion des adresses ; le poids faible d’une adresse est contenu 
dans le premier registre, le poids fort dans le second. La notion de 
“poids faible” et de “poids fort” sera développée plus loin dans ce livre. 
Le compteur ordinal 


Noté PC, il contient l’adresse de la prochaine instruction à exécuter. 


Le pointeur de pile 
Noté SP, il permettra de gérer les piles. 


Le registre d’index 


Noté IX, il permettra de faire de l’adressage indexé. 


Le registre d’indicateur 


Ce registre possède des drapeaux positionnés par l’accumulateur en 
fonction du résultat de certaines opérations, par exemple le drapeau 
de résultat nul ou de débordement. 


De plus, pour accélérer certains travaux, le Z80 possède deux jeux 
indépendants de certains des registres énumérés ci-dessus. 

Revenons sur les registres d’adresses. Nous avons dit que ces registres 
étaient doubles ; cette particularité permet de gérer les adresses plus 
rapidement. Pour expliquer leur fonctionnement, commençons tout 
d’abord par quelques rappels sur les systèmes de numération. 


NUMÉRATIONS DÉCIMALE, BINAIRE ET HEXADÉCIMALE 


Lorsqu’on écrit le nombre 627 en numération décimale, la traduction 
arithmétique est : 


6x10° + 2x10' + 7x10° 
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10 est la base de la numération que l’on élève à la puissance O, 
puis 1, puis 2, etc. (rappelons que 10 puissance 0 est égal à 1). 
Le nombre 1011 en numération décimale se traduit par 


1410° + Ox10° + 1x10° + 1x2° = 1011 
En numération binaire, il se traduit par 
142° + Ox2° + 1x2 + 142° 


soit la valeur 14 en numération décimale. 
En numération hexadécimale, il se traduit par 


1x16° + 0x16? + 1416! + 1x16° 


soit la valeur 1554 en numération décimale. 

Un octet est un mot de huit bits, chaque bit peut prendre la valeur 
0 ou 1 ; dans un octet, les nombres sont représentés en numération 
binaire. Le plus petit est 00000000 le plus grand est 11111111, ce qui 
nous donne en valeur décimale O pour le plus petit et 255 pour le 
plus grand. 


1427 + 1425 + 142° + 142 + 142? + 142? + 1x2! + 1x2° = 255 


La numération hexadécimale est souvent utilisée lorsqu’on travaille 
directement sur le contenu d’un octet, car elle permet d’écrire tous les 
nombres possibles qu’il peut contenir avec seulement deux chiffres 
ou lettres. 

La succession des chiffres en numération décimale est : 


0,1,2,3,4,5,6,7,8,9 
La succession des chiffres en numération hexadécimale est : 
0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 


À a la valeur 10, B la valeur 11, C la valeur 12, D la valeur 13, E 
la valeur 14, F la valeur 15 en numération décimale. 

Le nombre 255 en numération décimale s’écrit FF en numération 
hexadécimale : c’est le plus grand nombre que l’on peut écrire dans 
un octet. 


Fx16' + Fx16° = 15x16 + 15 = 255 
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ÉCRITURE D’UNE ADRESSE 


Le microprocesseur Z80 est capable de travailler avec des adresses 
allant de O0 à 65535. Nous venons de voir que dans un octet le nombre 
le plus grand que l’on pouvait représenter était 255 ; par conséquent, 
il sera nécessaire d’utiliser deux octets pour pouvoir représenter des 
nombres jusqu’à 65535. Ces deux octets sont utilisés de la manière 
suivante : 

L’adresse sera égale à la valeur contenue dans le premier octet 
augmentée de la valeur contenue dans le second octet multipliée par 256. 


Exemple 


L'adresse 28712 sera représentée par les deux octets suivants : 
00101000 01110000 


L’octet 00101000 vaut 40 en décimal, l’octet 01110000 vaut 112 
en décimal, on a bien en décimal 40 + 256x112 = 28712. 

Le premier octet est dit contenir le poids faible, le second octet le 
poids fort. 


M LES MÉMOIRES DE L’AMSTRAD 


Dans la version de base, l’Amstrad (464 ou 664) possède une 
mémoire RAM de 65 536 octets (soit 64K : 1K = 1 024 octets) ; mais 
toute cette mémoire n’est pas disponible pour l’utilisateur. Un certain 
nombre de mémoires est réservé pour le fonctionnement du microproces- 
seur, de l’interpréteur BASIC et les affichages à l’écran. Nous allons 
donner la carte des mémoires ainsi que quelques adresses remarquables 
utilisées par le microprocesseur ou l’interpréteur. 

Pour les possesseurs d’un Amstrad 6128, la mémoire RAM est de 
131 072 octets soit 128K, mais la mémoire est en réalité composée 
de deux blocs presque indépendants qui partagent les mêmes adresses. 
On appelle ces mémoires des mémoires à bancs commutés. A la mise 
sous tension ou après un reset complet par CTRL + SHIFT + ESC, 
on accède normalement au premier banc de mémoires. Pour accéder 
au second banc de mémoires il faut commuter des interrupteurs logiques 
(soft switch) qui sont constitués par des mémoires ; suivant les valeurs 
introduites dans ces mémoires, on accède au premier ou au second 
banc. Habituellement, le second banc de mémoires est utilisé comme 
un lecteur de disquette à accès rapide. Nos programmes n'’utilisant pas 


ces mémoires (pour être compatibles avec les différentes versions de 
l’ Amstrad), nous ne donnerons pas d’autres renseignements sur leur 
fonctionnement et nous parlerons toujours du premier banc de mémoires. 


CARTOGRAPHIE DES MÉMOIRES DE L’AMSTRAD 


Les adresses des RAM vont de 0 à 65535. 


+ Les mémoires d’adresses 0 à 366 sont réservées pour le fonctionnement 
de l’AMSDOS et du CP/M. 


+ Les mémoires d’adresses 367 à 42619 sont libres pour le programme 
BASIC et ses variables associées. 


Les mémoires d’adresses 42620 à 49151 sont réservées au fonctionne- 
ment du microprocesseur et de l’interpréteur. 


Les mémoires d’adresses 49152 à 65535 sont réservées pour l’affi- 
chage écran. 


La cartographie de la mémoire se schématise de la manière suivante : 


ADRESSE UTILISATION APPELLATION 


65535 










49152 

et microprocesseur 
42620 HIMEM 

Mémoires disponibles 
pour le BASIC 

367 TXTTAB 

Réservé AMSDOS 

et CP/M 

0 


L’adresse de début de la zone libre pour le programme BASIC 
s’appelle TXTTAB, cette adresse est stockée dans les mémoires réservées 
à l’interpréteur, soit 44673 (poids faible) et 44674 (poids fort) pour 
le CPC 464 et respectivement 44644 et 44645 pour les CPC 664 et 6128. 

L'adresse de la fin de zone libre pour le programme BASIC s’appelle 
le HIMEM, cette adresse est stockée dans les mémoires réservées à 
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l’interpréteur soit 45199 (poids faible) et 45200 (poids fort) pour le 
CPC 464 et respectivement 45171 et 45172 pour les CPC 664 et 6128. 


ADRESSES REMARQUABLES DE LA ZONE MÉMOIRE 
RÉSERVÉE A L’INTERPRÉTEUR 


Les adresses remarquables que nous allons citer sont toutes implantées 
dans la zone réservée à l’interpréteur, nous les donnerons dans l’ordre 
poids faible-poids fort. 

Nous venons de voir que l’adresse de début de la zone disponible 
pour le programme BASIC s’appelle TXTTAB et que l’adresse de la 
mémoire la plus haute (l’adresse la plus forte disponible) s’appelle le 
HIMEM, elle est stockée dans les mémoires d’adresses 45199 et 45200 
pour le CPC 464 et respectivement 45171 et 45172 pour les CPC 664 
et 6128. Elle peut être différente de la plus haute mémoire existante, 
caractéristique que nous utiliserons ultérieurement. 


Remarque 


Pour notre application, seule l’adresse de stockage de HIMEM nous 
sera utile ; pour plus de renseignements sur les autres adresses de 
stockage, nous vous conseillons de lire Mise au point des programmes 
BASIC sur Amstrad aux éditions Sybex. 


L'adresse de fin de programme BASIC s’appelle le LOMEM. 

Les variables numériques non indicées et l’adresse de stockage des 
variables alphanumériques non indicées sont stockées dans une zone 
de mémoires dont l’adresse de début est le LOMEM et l’adresse de 
fin le ARYTAB. 

Les variables numériques indicées et les adresses de stockage des 
variables alphanumériques indicées sont stockées dans une zone dont 
l’adresse de début est ARYTAB et l’adresse de fin STREND. 

Les variables alphanumériques, indicées ou non, sont stockées dans 
une zone dont l’adresse de début est HIMEM et dont l’adresse de fin 
est FRETOP. Il est à remarquer que pour cette zone l’adresse de début 
est supérieure à l’adresse de fin, à l’inverse des autres zones. 

La zone allant de FRETOP à STREND est libre. 

Il faut bien retenir de ce schéma que : 


[1 Le LOMEM s'élève au fur et à mesure que le programme s’allonge. 
[] La zone des variables qui s’étend de LOMEM à STREND est 
=" il = 


d’autant plus importante que le nombre ou la dimension des variables 
sont importants. 


[] La zone supérieure qui va de HIMEM à FRETOP contient toutes 
les variables alphanumériques du programme (par variables il faut 
entendre tous les messages introduits par l’utilisateur, par exemple des 
INPUT R$, ou des concaténations telles que A$ = B$ + C$). 


CT Dès que la zone libre deviendra nulle, le programme n’aura plus 
de place pour stocker les variables, ce qui déclenchera par exemple 
le message d’erreur STRING SPACE FULL. Le programme sera donc 
arrêté dans son exécution. Il est donc nécessaire de limiter l’encombre- 
ment d’un programme et le nombre de variables utilisées, pour travailler 
correctement dans l’espace mémoire. Comme nous le verrons ultérieure- 
ment, nos logiciels seront directement limités par ces notions. 


Pour la zone utilisable par le BASIC, nous avons la carte suivante : 


UTILISATION NOM 





HIMEM 






Zone de stockage 
des variables alphanumériques 
indicées ou non 


Zone de stockage 
des variables numériques indicées 
Adresse de stockage des variables 
alphanumériques indicées 










FRETOP 


STREND 


ARYTAB 








Zone de stockage 
des variables numériques 
Adresse de stockage des variables 
alphanumériques non indicées 


Programme BASIC 


= A2 — 





LOMEM 


TXTTAB 


10. L’AFFICHAGE GRAPHIQUE 


Quelques rappels tout d’abord : 

Un pixel est un point élémentaire de l’écran dont on peut choisir 
la couleur ; le nombre de pixels disponibles dépend des ordinateurs 
mais aussi du mode choisi dans le cas de l’ Amstrad. 

L’Amstrad possède trois modes graphiques : 


+ Le mode 0, dans lequel il y a 100 lignes ; chaque ligne possède 
160 pixels. L'écran possède alors une définition de 100 x 160 = 16 000 
pixels. D'autre part, chaque pixel peut avoir l’une des 16 couleurs 
définies par l’ordre BASIC INK ; ces 16 couleurs sont choisies parmi 
les 27 disponibles sur Amstrad. 


+ Le mode 1, dans lequel il y a 200 lignes ; chaque ligne possède 
320 pixels. L'écran possède alors une définition de 200 x 320 = 64 000 
pixels. D’autre part, chaque pixel peut avoir l’une des 4 couleurs 
définies par l’ordre BASIC INK ; ces 4 couleurs sont choisies parmi 
les 27 disponibles sur Amstrad. 


+ Le mode 2, dans lequel il y a 200 lignes ; chaque ligne possède 
640 pixels. L'écran possède alors une définition de 200 x 640 = 128 000 
pixels. D’autre part chaque pixel peut avoir l’une des 2 couleurs 
définies par l’ordre BASIC INK ; ces 2 couleurs sont choisies parmi 
les 27 disponibles sur Amstrad. 


Lorsque nous disons 4 couleurs choisies parmi les 27 disponibles, 
cela veut dire qu’une image donnée possédera 4 couleurs, par exemple : 
jaune, noir, rouge et vert, mais une autre image pourra avoir 4 autres 
couleurs, par exemple : bleu, mauve, pourpre et blanc. 

Pour nos applications d’images graphiques, le mode 0 est riche en 
couleurs, mais la finesse de l’image est insuffisante. Le mode 2 possède 
une excellente définition, mais il est pauvre en couleurs. Le mode 1 
est un compromis entre les deux, c’est celui que nous choisissons 
pour notre application. 


Représentation des images graphiques en mémoire 


Pour faire apparaître les images sur l’écran du moniteur, l’ Amstrad 
possède un microprocesseur particulier qui lit une partie des mémoires 
de l’Amstrad et en fonction, d’une part, du mode choisi et, d’autre 
part, des valeurs trouvées dans ces mémoires, allume les pixels avec 
les différentes couleurs choisies. Nous allons étudier maintenant la 


— 114 - 


correspondance qu’il y a entre les valeurs des mémoires qui représentent 
l’écran et la couleur des pixels. 

Comme nous l’avons vu précédemment, les mémoires réservées à 
l’écran sont les mémoires qui vont de l’adresse 49152 à l’adresse 
65535. Dans la suite de ce livre nous appellerons cette zone de 
mémoire : la mémoire écran. Nous allons explorer cette mémoire écran 
dans différents cas particuliers pour observer les valeurs prises par les 
octets en fonction de la couleur des pixels ; pour cela, introduisons le 
petit programme suivant : 








18 INPUT ‘“I= ", | 

24 INPUT "C= ",C 

39 INK 1,0 

4% FOR Y=4 

Sa MOVE @,v: 

é4 NEXT 

78 ALSSBINS(CPEEK(47152) ,8) 

84 AZF=BINSCPEEK(49153) ,8) 

6 ASE BINS(PEEK( 47154) ,2) 

166 AAS=BINS(PEEK( 45155) ,8) 
114 ASÉ=BINSCPEEK(4F1Sé) ,80 
124 ASE=BINSCPEEK( 471575 ,85 
130 ATSSBINS(PEEK (49158) , 8) 
148 ABÉ=BINECPEEK( 4715975 ,8) 
159 AF7H=BINSEPEEK( 47160) ,8) 
164 PRINT A1S,428,4S% 

174 PRINT 644$ ,45%, 468 

186 PRINT 474,488 ,47# 


Exécutons ce programme et donnons tout d’abord la valeur 0 à notre 
variable I et 1 à notre variable C ; notre écran va donc se colorer avec 
la couleur d’encre O0 à laquelle nous venons d’associer le bleu, puis 
nous allons observer les valeurs en binaire des 9 premiers octets de 
la mémoire écran soit : 


00000000 00000000 00000000 
00000000 00000000 00000000 
00000000 00000000 00000000 


Tous les octets ont la même valeur et cette valeur est 00000000. 


>. A15= 


Donnons maintenant comme valeurs I = 0 et C = 3, l’écran se colore 
en rouge, et nous obtenons comme valeurs : 


00000000 00000000 00000000 
00000000 00000000 00000000 
00000000 00000000 00000000 


Les octets de la mémoire écran n’ont pas changé de valeur, ils 
dépendent donc uniquement de l’encre choisie et non de sa couleur. 

Donnons maintenant comme valeurs I = 1 et C = 3, l’écran se colore 
en rouge, et nous obtenons comme valeurs : 


11110000 11110000 11110000 
11110000 11110000 11110000 
11110000 11110000 11110000 


Donnons maintenant comme valeurs I = 2 et C = 3, l’écran se colore 
en rouge, et nous obtenons comme valeurs : 


00001111 00001111 00001111 
00001111 00001111 00001111 
00001111 00001111 00001111 


Donnons maintenant comme valeurs I = 3 et C = 3, l’écran se colore 
en rouge, et nous obtenons comme valeurs : 


11111111 11111111 11111111 
11111111 11111111 11111111 
11111111 11111111 11111111 


Modifions maintenant notre programme de la manière suivante : 
if CLS 


24 PLOT &, 
26 FLOT 425 


FLOT : 
:FLOT 





M A1S=EINE&i ie. i 
BU AZH=BINS(PEEK( 47159), 
FE ASH=BINSIPEERS 471545 
1H AAESEIMNSÉPEERCAFISS 


Où Où Où: 


"s = “4 
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11 ASF=BINSCFEEK (47196) ,8) 
124 Aéb=BINSEPEER( 471575 ,8) 
134 ATH-EINSCPEEK( 491580 ,0) 
148 ABS=BINSCPEERL4F1S7 80 
156 AFE=BINSCFEEK( 491645 ,80 
1éÿ PRINT G1$, 428, 45 
176 PRINT éd$, 458 ,.4ét 
186 PRINT 7H, 408 AE 


Exécutons alors ce nouveau programme qui doit allumer quatre points 
avec la couleur 1 et nous donner toujours la valeur des 9 premiers 
octets : 


11110000 00000000 00000000 
00000000 00000000 00000000 
00000000 00000000 00000000 


Nous pouvons constater que seul le premier octet a changé de valeur 
par rapport à un écran vide ; en effet, en mode 1 un octet représente 
4 pixels. Examinons le procédé de codage : 

Un octet comporte 8 bits qui peuvent prendre les valeurs O ou 1 
(après une instruction BIN$ le résultat se lit de la droite vers la 
gauche), nous numérotons les bits d’un octet de la droite vers la 
gauche soit : BO, B1, B2, B3, B4, B5, B6 et B7, le bit le plus à droite 
est BO, le bit le plus à gauche est B7. En mode 1, la valeur de l’encre 
choisie pour un pixel est donnée par la valeur des couples (B0,B4), 
(B1,BS), (B2,B6) et (B3,B7). Les quatre premiers pixels en haut et à 
gauche de l’écran sont représentés par la mémoire 49152, le premier 
est représenté par le couple de bits (B0,B4) de l’octet contenu dans 
cette mémoire, le deuxième par le couple (B1,B5), le troisième par le 
couple (B2,B6) et le quatrième par le couple (B3,B7). Chaque couple 
peut prendre l’une des quatre valeurs suivantes : (0,0), (0,1), (1,0) et 
(1,1). On a donc quatre possibilités correspondant aux quatre valeurs 
possibles pour l’encre ; l’encre 0 correspondra au couple (0,0), l’encre 1 
au couple (0,1), l’encre 2 au couple (1,0) et l’encre 3 au couple (1,1). 
Notre première mémoire affichée par notre programme comporte bien 
4 couples (0,1). Prenons un autre exemple : 

Si le premier pixel de cette série de quatre est coloré avec l’encre 
n° 0, le bit BO = 0 et le bit B4 = 0 ; si le deuxième est coloré avec 
l’encre n° 1, le bit B1 = 0 et le bit B5 = 1 ; si le troisième est coloré 
avec l’encre 2 le bit B2 = 1 et le bit B6 = O0 et pour finir si le quatrième 
pixel est coloré avec l’encre 3 le bit B3 = 1 et le bit B7 = 1, on obtient 


= A7 = 


alors pour l’octet entier la valeur binaire : 00110101, soit la valeur 
décimale 172. Vérifions cela à l’aide du programme suivant : 


CLS 


re 
Ur 
T1 
Fr 
Len! 
— 
Dax 


A,378,4:PLOT 
FLOT 4,3F78,2:PLÜT 
Ai $=EBINEIFEERSATIS 
ALZH=EIMESPEERSATIS 
AZE=EIMEIFEERSATIS 
ASE=EINSÉPFEERS SI 
ASE=BINEEPFEERS 471 
ASEZ=EINE:PEEK 
APE=BINELFEEERS 
AS=EINEIPFEEKRS AT 
AFEZ=EIMNELFEERS S 
FRIIT AIS LE ASE 
PRIET ASE ASE A6E 
PRINT 478, AGE APE 






UE 


Sa ti CO 





pb 
r 


en. 
px 


in 


tn 


UX 
pa 


—.} Cr. 


pot] 
Dos 










ÿ “4 “0 


pb 
Dm im 


&. CN LT OUEN 


[ES 
ES 
A 


Par 

Ra 
{ 

Be et bb pt 

Sr “4 (0 


\ “Ù 
LI 


NT do 
ur ut 


one pt pe pe de pa me me C4 I vf it Pi 


D Jo Un Litir aus 


[HA] 
a 


On obtient bien la valeur 10101100. 

Examinons maintenant l’ordre de stockage des pixels dans la mémoire 
écran. Nous numéroterons les lignes de O à 199 du haut vers le bas, 
et les pixels sur les lignes seront numérotés de O à 319 (à noter que 
les coordonnées graphiques de l’Amstrad donnent X =0 et Y =0 
pour le point en bas à gauche, X = 638 Y = 0 pour le point en bas à 
droite, X = 0 Y = 398 pour le point en haut à gauche et X = 638 
Y = 398 pour le point en haut à droite). 

Dans la mémoire d’adresses 49152 à 49231, nous trouvons les 
80 octets de la ligne n° O, puis de 49232 à 49311 les octets de la ligne 
n° 8, puis de 49312 à 49391 les octets de la ligne n° 16, et ainsi de 
suite jusqu’à la ligne n° 192 qui se termine en 51151. Les octets 
d’adresses 51152 à 51199 ne sont pas utilisés. A partir de la mémoire 
d’adresse 51200, nous trouvons les octets de la ligne n° 1, puis n° 2, 
et ainsi de suite jusqu’à la ligne n° 193, puis n octets inutilisés, puis 
la ligne n° 3, etc. La mémoire écran contient donc les lignes par paquets 
de 25, et dans un paquet de 25 les lignes ne sont pas des lignes 
successives mais des lignes espacées de huit en huit. Entre chaque 
paquet de 25, il y a 48 mémoires inutilisées. 
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Nous allons examiner ce schéma de lignes entrelacées à l’aide du 
programme suivant : 


St 


Lo fie 
Lea] 





BOL] 


La manière dont l’écran se colore met bien en évidence l’entrelace- 
ment des lignes. 

Dans le cas du mode 2 nous avons deux fois plus de pixels à 
contrôler à l’écran, mais le nombre de mémoires disponibles reste 
identique, par conséquent un octet représentera 8 pixels et donc un bit 
dans un octet représentera 1 pixel. Un bit pouvant prendre les valeurs 
0 ou 1, le pixel n’aura que deux encres possibles. 

Dans le cas du mode 0, nous avons au contraire quatre fois moins 
de pixels que dans le mode 1 ; un octet représentera un pixel, et nous 
aurons, en théorie du moins, 256 encres disponibles. L’Amstrad est 
cependant limité à 27 encres disponibles (si le mode 0 avait eu 32 000 
pixels, un octet aurait représenté 2 pixels qui auraient eu 16 encres 
possibles). 
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11. LA RECOPIE DE MÉMOIRES 


Pour les besoins de notre logiciel d’aide à la création d’images, 
nous avons besoin d’effectuer des recopies d’images à l’intérieur des 
mémoires de l’ Amstrad. Nous allons tout d’abord écrire un programme 
en BASIC pour recopier la zone mémoire écran qui va de l’adresse 
49152 à l’adresse 65535, dans la zone mémoire qui va de l’adresse 
26204 à l’adresse 42587. Voici ce programme : 


14 MEMORY ZLéGé@:MODE 1:CLS 

£4 MOVE 14,@:DFRél 164,4864,1:MOVE 24 ,4:Dfé 
W 24,4G46,Z2:MQUE 25,8: DRAd 26,446 ,3:LOCAT 
E 15, iM:PRIMT "ESSAI" 

36 FOR I=47152 T0 45234: POKE I1-£22748,PEE 
KIT: LOCATE 14,Z4:PARINT IiNEXT 

44 MOCE 1 

26 FOR I=Zé£64 TO ALSSF:PFOKE I1+22748,FEE 
KID :NEXT:PRINT "FIH" 


Ligne 10 


Nous changeons la place du HIMEM, passons en mode 1 et nettoyons 
l’écran. 


Ligne 20 


Ces quelques ordres graphiques permettent de tracer une image test 
sur l’écran. 


Ligne 30 


La boucle en I recopie le contenu des mémoires dont l’adresse va 
de 49152 à 65535, dans les mémoires dont l’adresse va de 26204 à 
42587. Comme cette opération est assez longue en BASIC, nous avons 
ajouté un ordre d’affichage à l’écran, qui donne le numéro de la 
mémoire en cours de transfert (ce qui ralentit notablement le programme, 
mais permet de vérifier que le travail est en cours). 


Ligne 40 


Nettoyage de l’écran, et par conséquent remise à zéro des mémoires 
49152 à 65535. 


Ligne 50 


Nous effectuons le travail en sens inverse, en recopiant les mémoires 
dont l’adresse est comprise entre 26204 et 42587 dans les mémoires 
qui vont de 49152 à 65535. Nous ne mettons pas de PRINT de l’adresse 
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de la mémoire en cours de recopie, car le dessin qui réapparaît à l’écran 
nous permet de suivre le travail. Vous avez constaté au passage que 
la recopie est très lente (environ 10 minutes), ce qui est prohibitif 
pour notre application. Nous allons donc recourir au langage machine 
(ou à l’assembleur pour ceux qui possèdent un assembleur/désassem- 
bleur). 


Tout d’abord, commençons par donner quelques explications sur ce 
qu’est le langage machine. Les microprocesseurs sont capables d’exécu- 
ter directement, sans l’aide de logiciels, un certain nombre d’ordres 
élémentaires. La liste de ces ordres et leur fonction se trouvent dans 
la documentation des microprocesseurs ou dans des livres traitant de 
leur programmation (par exemple, pour le Z80 : Programmation du 
Z80 par Rodnay Zaks aux éditions Sybex), ou bien dans des livres 
traitant d’un assembleur pour votre ordinateur. 

Un assembleur est un logiciel qui vous aide à programmer en langage 
machine. Pour de petits programmes, on peut se passer d’assembleur. 
A chaque ordre exécutable par le microprocesseur correspondent, pour 
le Z80, une ou plusieurs valeurs à introduire dans les mémoires de 
votre ordinateur. Après introduction à l’aide d’ordres POKE des ordres 
correspondant à votre programme, il suffit de faire effectuer un saut 
à la première mémoire qui contient le programme avec l’ordre BASIC 
CALL pour que votre programme s’exécute. On affecte à chaque ordre 
en langage machine un mnémonique permettant de mieux comprendre 
le programme lorsqu’on l’écrit. Un logiciel d’assembleur permet de 
taper directement les mnémoniques pour introduire un programme 
dans les mémoires, au lieu de faire l’introduction des valeurs correspon- 
dantes avec des POKE. Mais plutôt que de continuer à donner des 
explications théoriques, réalisons notre programme de transfert d’image. 


Le Z80 possède un ordre très puissant qui va effectuer la recopie 
précédente en moins d’une seconde ; cet ordre a comme mnémonique 
LDIR. L'ordre LDIR effectue le travail suivant : il recopie le contenu 
de la mémoire dont l’adresse se trouve dans le registre double HL 
dans la mémoire dont l’adresse se trouve dans le registre DE. Puis il 
ajoute 1 au contenu du registre DE et du registre HL et il retranche 
1 au contenu du registre BC. Il recommence ensuite le même travail, 
et ce jusqu’à ce que le registre BC ait la valeur 0. Pour effectuer le 
travail, cet ordre a donc besoin de connaître l’adresse de la première 
mémoire à transférer, l’adresse de la première mémoire de destination 
et, bien sûr, le nombre de mémoires à recopier. 

L'adresse de la première mémoire à recopier doit donc être introduite 


1423 = 


dans le registre double HL. Pour effectuer cela, nous utiliserons l’ordre 
LD HL, qui veut dire “charger le registre double HL avec les valeurs 
contenues dans les deux octets qui suivent” (dans l’ordre poids faible, 
poids fort). Notre première adresse est celle de l’'IMAGE 1, soit 491572, 
ce qui s'écrit LD HL,49152. L’ordre LD HL a comme valeur 33. On 
obtient alors pour l’ordre “Charger le registre double HL avec la valeur 
49152”: 


En assembleur LD HL,49152 
En langage machine 33-0-192 (0 + 256x192 = 49152) 


L’adresse de la première mémoire de destination doit être introduite 
dans le registre double DE. Pour effectuer cela, nous utiliserons l’ordre 
LD DE, qui veut dire “charger le registre double DE avec les valeurs 
contenues dans les octets qui suivent” (dans l’ordre poids faible, poids 
fort). Notre première adresse est 26204, cela s’écrit LD DE,26204. 
L'ordre LD DE a comme valeur 17. On obtient alors pour l’ordre 
“Charger le registre double DE avec la valeur 26204” : 


En assembleur LD DE,26204 
En langage machine 17-92-102 (92 + 256x102 = 26204) 


Le nombre de mémoires à recopier doit être introduit dans le registre 
double BC. Pour effectuer cela, nous utiliserons l’ordre LD BC, qui 
veut dire “charger le registre double BC avec les valeurs contenues 
dans les octets qui suivent” (dans l’ordre poids faible, poids fort). 
Une image correspond à 16 384 octets, ce qui s’écrit LD BC,16384. 
L'ordre LD BC a comme valeur 1. On obtient alors pour l’ordre 
“Charger le registre double BC avec la valeur 16384” : 


En assembleur LD BC, 16384 
En langage machine 1-0-32 (0 + 256x64 = 16384) 
Lorsque ce programme sera terminé, il faudra ensuite revenir au 


programme BASIC, ce qui s’obtiendra par l’ordre de mnémonique 
RET et de valeur 201. 
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Nous allons implanter ce programme à partir de la mémoire 26192 
à l’aide du programme BASIC suivant qui donne en REM la traduction 
en assembleur du langage machine introduit : 


14 METORT ee Î 

28 MOVE 16,83: DRAU re SUB ,t:IMOUE ZA ,@: DFE 
20,908 ,2: SE IE LE, ou 25,944 ,3:L0CAT 
lié: CPE eue 

"PGKE SITE 

FRE 

FORE 


ul 





RE LE EC,14584 
FÜKE 
FORE 
POKE 
REM LD DE,Zér44 
FOKE 
FPOKE 
FOkE 





RE LD HL,4FISx 
FORE 
FÜRE 
REF LOTIR 
FORE 
RE FRET 
Call 
MODE 
FÜRE 
FÜKE 
FOÉE 











REM LD EC,143€4 
FOKE 
FOÉE 
FOKE 


se 
su ui ui © 





Est € 


REM LOG DCE ,Z£sE44 
POKE 
FÜRE 
PÜRE 


mom 


REM LO HL,47152 
FOKE 
FOKE 


Rs 
ut al 





M d 


FE LOIÉ 


+86 RER RET 


Nous avons, en tête de ce programme, les mêmes instructions (10 
et 20) que pour le premier programme, puis le programme en langage 
machine (100 à 260) pour effectuer le transfert des mémoires dont les 
adresses vont de 49152 à 65535 vers les mémoires dont les adresses 
vont de 26204 à 42587, appel de ce programme à l’aide de l’ordre 
CALL (270), nettoyage de l’écran (280), de nouveau le programme 
en langage machine, mais cette fois pour effectuer le transfert des 
mémoires dont les adresses vont de 26204 à 42587 vers les mémoires 
dont les adresses vont de 49152 à 65535 (300 à 460), et appel de 
nouveau du programme (470). 

Lorsque vous exécutez ce programme, vous avez apparition de 
l’image, transfert, nettoyage écran, rappel de l’image par transfert. 
L'ensemble de ces opérations est presque instantané. 
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12. LA COMPRESSION/ 
DÉCOMPRESSION D’IMAGE 


Nous allons maintenant aborder le problème de stockage des images 
sur disquette (ou sur cassette). 

La procédure de stockage que nous avons utilisée précédemment 
donne naissance sur la disquette à un fichier d’une taille de 17K octets. 
Notre jeu d’aventure va comporter 66 images différentes. Chaque face 
de disquette peut contenir 170K octets, donc 10 images. Nous avons 
donc besoin de 7 faces de disquette. Nous allons essayer d’améliorer 
la situation en effectuant une compression/décompression d’image. 

Pour effectuer une compression d’image, nous allons coder l’image 
d’une manière différente. Nous allons explorer la mémoire écran pour 
identifier les différents octets qui composent l’image, et lorsque nous 
rencontrerons N octets successifs possédant la même valeur, au lieu 
de garder N fois cette valeur nous indiquerons le nombre N suivi de 
la valeur de l’octet. Comme nous ne pourrons pas faire la différence 
entre les valeurs de N et les valeurs d’un octet de la mémoire écran, 
nous serons obligés aussi de coder les octets uniques par la valeur 1 
suivie de la valeur de l’octet. Au fur et à mesure de l’exploration de 
la mémoire écran, nous écrirons le résultat de notre codage dans les 
mémoires de l’ Amstrad à un endroit différent de la mémoire écran. 

L'ensemble des octets obtenus composera notre nouvelle image et 
c’est ce résultat que nous inscrirons sur la disquette. En sens inverse, 
lorsque nous désirerons faire apparaître une image à l’écran, nous 
lirons le fichier “image compressée” sur la disquette, puis nous 
traduirons en sens inverse les valeurs introduites dans les mémoires 
pour les écrire sous forme traditionnelle dans la mémoire écran et 
voir apparaître l’image. 

S’il n’existe pas dans toute la mémoire écran deux octets successifs 
identiques, le résultat de notre codage consistera à doubler la taille 
du fichier, car nous aurons traduit chaque octet par deux octets. 
Heureusement, dans le cas général, une image possède des zones d’une 
seule couleur ou avec un motif répétitif (exemple rouge, bleu, rouge, 
bleu..), ce qui correspond à des lignes écran composées d’octets 
successifs identiques. 

Dans un octet, la valeur maximale que l’on peut écrire est 255, par 
conséquent si nous voulons coder le nombre d’octets successifs iden- 
tiques rencontrés dans l’exploration nous devrons limiter N à 255 et 
si N est plus grand, nous le coderons en deux fois. Par exemple, si 
520 octets successifs sont identiques et de valeur 12, le résultat du 
codage sera 255-12-255-12-10-12 ; dans ce cas simple, la compression 
fait passer de 520 octets à 6 octets. 

Nous allons tout d’abord réaliser un compresseur graphique en 
BASIC pour bien comprendre son fonctionnement. Sa vitesse d’exécu- 
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tion sera très lente et nous réaliserons ensuite un programme en langage 
machine qui sera d’une rapidité étonnante par rapport au programme 
en BASIC. 

Nous effectuerons le travail de compression en écrivant le résultat 
du codage à partir de la mémoire d’adresse 26204. 

Voici le listing du programme en langage BASIC. 


1G MEMORY ZSG4G:MOCE 1:CLS 

28 J=i:K=26284:L=6: MOVE 16,68 :DRAU 12 . +46 
S1:MOUE 26,6:0FRâll 26,466 ,2 IMOVE 28 ,d:D0FA 
W 28,484,3:LOCATE 15,18:FRINT is 

Gû FOR 1=47152 TO 45534 :&=PEEK (I à : E=FEEK 
CI+i12 

4& IF J=i THEN C=ë 

sé IF ASE THEN J=J+i 

64 IF STE OR J=255 THEN FOKE K,J:FOKE K 
+1,C:k= K+2:J =i:L=L+£ 


F4 LOCATE Le T'INEXT I 

54 FOÉE K,J:FOKE K+i, 

F4 SAUVE "IN" E.ZéE64, L 

149 CLS:PRINT L:INEUT FR 

118 MODE 1:CLS 

124 LOSC "It4" 

154 A=4TiSl:iE=zéezf4 

146 FÜR K=i TO FEEKIBS:FOKE AtK,PEEKR(E+1 


IINEXT E 
st 1LiIF MÉSTSSS THEN ESE+E£: GUTO 1 


F5 ei 
Case D à 
min 

Dot] 


Lignes 10 et 20 


Les ordres habituels pour positionner le HIMEM et réaliser un petit 
dessin graphique. De plus, nous initialisons la variable J à la valeur 1 ; 
J nous permettra de compter combien d’octets successifs sont identiques. 
Nous posons K = 26203. 

Ligne 30 

Début d’une boucle en I pour explorer toute la mémoire écran ; A 
et B contiennent la valeur de deux octets successifs. 
Ligne 40 

Nous mémorisons dans la variable C la valeur du premier octet 
rencontré au début d’une série, ce qui correspond à la valeur 1 de J. 
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Ligne 50 


Si deux octets successifs introduits dans A et B sont égaux, nous 
incrémentons J d’une unité. 


Ligne 60 


Si les deux octets successifs sont différents, ou si la série rencontrée 
comporte 255 octets égaux, nous inscrivons dans la zone mémoire 
image compressée le nombre d’octets successifs égaux et la valeur 
commune de ces octets. Puis nous incrémentons la variable K de deux 
unités, nous repositionnons la variable J à 1 pour le décompte de la 
nouvelle série. 


Ligne 70 


Pour faire passer le temps, nous affichons l’adresse de la mémoire 
en cours d'exploration. Le NEXT de fin de boucle. 


Ligne 80 


Lorsque nous arrivons à la dernière mémoire de la zone écran, dans 


le cas général la boucle précédente n’inscrit pas ce dernier résultat, 
nous l’inscrivons donc ici. 


Ligne 90 


… et nous envoyons le résultat sur disquette sous forme d’un fichier 
binaire de nom IM. 


Lignes 100 à 120 


Nettoyage écran ; on imprime le résultat de la compression et l’ordre 
INPUT permet d’arrêter le programme le temps de lire cette information. 
Nettoyage des mémoires écran, de l’écran, et chargement de l’image 
compressée. 


Ligne 130 


A est initialisé à la valeur de la première adresse de la zone écran, 
moins une unité, et B à la valeur de la première adresse de l’image 
compressée. 


Ligne 140 


Boucle en K pour décompresser l’image, PEEK(B) contient le 
nombre d’octets successifs égaux et PEEK(B + 1) la valeur de ces 
octets ; on va donc inscrire cette valeur PEEK(B) fois dans la zone écran. 
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Ligne 150 


On passe au couple “nombre d’octets, valeur de l’octet suivant” et 
on recommence jusqu’à ce que l’image écran soit complète, c’est-à-dire 
jusqu’à ce qu’on ait introduit des valeurs dans la zone écran complète, 
ce qui est obtenu lorsque À = 65535. 


Vous exécutez ce programme : le temps de compression est supérieur 
à 10 minutes, ce qui est prohibitif pour notre application. 

Passons maintenant au compresseur en langage machine, introduit 
à l’aide d’un programme BASIC qui donne des renseignements sur le 
programme introduit. Voici ce programme : 


14 REM COMPRESSEUR/DECOMPRESSEUR 

24 REM EN ASSEMBLEUR 

36 MEMORY £ZSl24:MODE 1 

4û MOVE &@,@ 

Sü DRéW 629,4,1:DRAUW 629,399 ,1 

£û DRAU 8,399,1:DRAUN 6,6 ,1 

7 MOVE 44,4:DRAU 4&, or 

84 MOVE 26,4:DRé4 20,488 ,2 

Sû MOVE 28,0:DRAU 28,486 2 

189 LOCATE 15,1@:PRINT "ÉSSal" 

114 REM 

124 REM COMPRESSEUR 

134 REM 

148 FOR I=26132 TO 26187 

158 REMD A:POKE I,4:NEXT I 

iéû DATA 33,4,192 

178 REM 26132 LO HL,47152 
188 DATA 1,91,182 

178 REM 26135 LD EC,26203 
Züä DATA 22,1 

216 REM 24138 LD D,1 
22à DéTéA 94 

256 REM 26144 LD E,{HL) 
248 DATA 35 

25% REM Zé141 INC HL 
264 DéTA 125 

278 REM Zé142 LD 4,L 
288 DATA 239,255 

254 REM 26143 XOR,255 
344 DATA 1974,42,14% 
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hi 
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DATA 


DATA 


DATÉ 


DATA 


DATA 


DATA 


DATA 


DATÉE 


DATÉ: 


DATA 


DAT 


DATA 


DATA 


DATE 


DATA 


DATA 


DAT 


REM 2% 


124 

REM 
238,255 

REM 
24Z,66,14Z 

REM 


LEA] 


12 
FEM 
174 


REM 2 


1794,57,162 


FRET 


128 

FRET 
Re 

REF 
122 

REM 
pe] 

FEr 
AE 


132 = 


zéi485 


Zéi47 


Zé1S1 


26154 


JP N2,26154 
LD 4,H 
XOR, 255 


JP € 


JF € ,réléés 
JP,zé1ai 
LD D,ZSS 
HO 
INC EC 
LEO À,E 
LO LECi A 
LOC 4,0 
INC EC 


LG 


CBC) ,À 


JF Zétlé 


INC EC 


LO {ECi 4 


73û FEM 26188 LD 4,0 
& DéTé 
| REM 26181 INC EC 
DATA 2 

REM 26182 LD (BC) ,# 


DATA 237,67,77,102 





DT 281 





FEM Léiss RET 
FEM 
RER CECOMPRESSEUR 
FEM 
FOR IS4SSEr TO 42£is 
FRE&AD À:PFOKRE Le SAIMEET I 


DATÉ 35,4,1% 








D En GE 


FE ESS LD HL,4FISE 


Qi 





254 DATA 1,91,134 
Fa REM 42592 LD BC,34395 
519 DATA 3 


FREM QZSFE INC EC 


ti 
L 


DéTé 16 


GE me D um 


REM 4£iré LOC 4,660 


DATA SF 


at 
nu 


RE 42557 LD C,4 


Ai “Q “4 
—) Cr. LA 
ol 


4] 
Le. 
TZ 
— 
J 

[KA 


REF 4ZSFS INC EC 


Cac DE no D 2° 
Len 
J 
1 
pe 
a] 


De] 
— 
2e, 


REM 42595 LD 4,(ECà 
DATA 114 

REM 42688 LD CHL),0 
DATé 35 

FEM 42681 INC HL 
DATA 41 


D © © œ © EC 


REM 424602 DEC 4 
DATA 194,144,146 
FEM 42443 JF N7,d240û 


DS GS GE m'U: 


vf 0 CN Bit 


LH 
LUE] 
DA] 


“1 


DATÉ 125 
REM d2éûé LD &,L 


DATA 238,225 


CCR UE LOUE x | 


REM 42647 XOR,2955 
DéTé 174,99 ,1é64 


Ha bé Dé bd et et dt Et pet bé ét bé pe Re pet CN “4 “Ai 
D 


bn be bé bé best TI 
Lttir & 


Le 
ma 
m 
Es 
+ 
ta 
LE 
A] 
41 


"JP N2,42595 


1154 DATA 124 

1144 RE 4Zéiz LE 4,4 

1174 DATA ZGS,ESS 

1186 RE 4Zéis KOR,2ZSS 

11576 DATA 174,77,1é6Ss 

1244 REM d£éis JF NZ ,42575 
1214 DATA Z&1 

1:24 FEti 42618 RET 

12534 CALL 26132 

1244 FOKE ZéiF£,i:POKE LéirS, G:PÜKE 2617 

4,32:POKE Zé17S5,17:POKE Z46197é6,72:POKE Zé 
177,134:POKE Zéi78,33:POKE 2Zé179,72:FOKE 
Zé2GG,1GZ:POKE Zé261,23F7:POKE Zé282,17é 
:POKE Zé62453,261:CALL 26174 

1256 NE=PEEK(I 2618979 +25Sé#PEEK( 2617640 -Zé62784 
1264 SAVE "IMP'E,34556 ME 

127@ PRINT "FIN" 

1284 MODE 1:LO4D "IMPF'"':CALL 42559 

1294 FOR I=1i TO AGGG:NEXT I 

{5u4 END 


Lignes 10 à 100 

Positionnement du HIMEM, nettoyage écran et réalisation d’un 
dessin de test. 
Lignes 140 et 150 


Boucle en I pour charger les valeurs de notre programme de 
compression en langage machine. 


Les lignes suivantes se lisent par deux : la première correspond aux 
valeurs en langage machine, la seconde à la traduction sous forme de 
mnémoniques assembleurs avec en tête l’adresse de la mémoire où est 
implanté l’ordre. 


PROGRAMME DE COMPRESSION 


26132 LD HL,49152 


Charge le registre double HL avec la valeur 49152, première adresse 
de la zone image écran que l’on va compresser. Le registre double 
HL donnera l’adresse du prochain octet à comparer. 
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26135 LD BC,26203 


Charge le registre double BC avec la valeur 26203, première adresse, 
moins une unité, de la zone où sera inscrit le résultat de la compression. 
Le registre double BC donnera l’adresse où écrire le résultat de la 
compression d’une série d’octets identiques. 


26138 LD D,1 


Charge le registre simple D avec la valeur 1. Le registre D sera le 
compteur d’octets identiques successifs. 


26140 LD E,(HL) 


Charge le contenu de la mémoire dont l’adresse est inscrite dans le 
registre double HL, dans le registre E ; c’est la valeur du premier octet 
d’une éventuelle série. 


26141 INC HL 


Incrémente le contenu du registre double HL d’une unité. 


Nous allons effectuer maintenant le test qui permettra de savoir si 
nous avons terminé la compression. Cela correspond au fait que le 
registre double HL contient la valeur 65535. En langage machine, on 
ne peut pas sur le Z80 effectuer un test de valeur directement sur un 
registre double. Il faut donc effectuer le test en deux fois : si le registre 
double HL contient la valeur 65535, chaque registre H et L contient 
la valeur 255 (255 + 256x255 = 65535). D’autre part, la comparaison 
ne peut être effectuée qu’avec une valeur contenue dans l’accumula- 
teur A. Nous allons recopier L dans A, le comparer avec 255 et, suivant 
le résultat, nous continuerons le traitement ou nous irons vérifier si 
le contenu de H est ou non égal à 255 en le transférant à son tour 
dans A. Si le contenu de H est différent de 255, on continue l’explora- 
tion ; sinon la compression est terminée. 


26142 LD A,L 
Charge l’accumulateur A avec le contenu du registre L. 
26143 XOR,255 


Effectue un OÙ exclusif du contenu de l’accumulateur A avec la 
valeur 255. Le résultat de l’opération positionne des indicateurs, notam- 
ment celui de “résultat égal à 0”, ce qui sera obtenu si A contient la 
valeur 255. 
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26145 JP NZ,26154 


Saut conditionnel à l’adresse 26154. La condition utilisée est “Non 
Zéro”. En conséquence, si le contenu de A est égal à 255, le résultat 
est Zéro et le saut ne s’effectue pas ; par contre, si le contenu est 
différent de 255, le résultat est Non Zéro et le saut s’effectue. Le saut 
alors effectué permet de ne pas faire le test sur le contenu de H. 


26148 LD A,H 
Charge H dans A. 


26149 XOR,255 
OÙ exclusif avec 255. 


26151 JP Z,26178 


Cette fois-ci, nous faisons un saut conditionnel sur la valeur Zéro ; 
en effet, si on a Zéro c’est que H est égal à 255, et comme L est déjà 
égal à 255, le travail de compression est terminé et nous allons en 
26178 pour sortir du programme. 


26154 LD A,E 


Dans E nous avons la valeur de la mémoire dont l’adresse était 
contenue dans HL avant son incrémentation, c’est-à-dire le premier 
octet d’une éventuelle série de la mémoire écran ; nous copions cette 
valeur dans A. 


26155 CP (HL) 


Dans HL nous avons l’adresse de l’octet suivant de la mémoire 
écran. Nous faisons la comparaison de la valeur de cet octet avec celui 
contenu dans A (premier octet de la série). Si les deux octets sont 
égaux, l’indicateur de Zéro est positionné à Zéro ; dans le cas contraire, 
il est positionné à Non Zéro. 


26156 JP NZ,26169 


Saut conditionnel, si Non Zéro, on va en 26169 pour inscrire le 
résultat de cette exploration ; si Zéro, les deux octets sont égaux et 
nous allons incrémenter le compteur qui est D d’une unité à l’ordre 
suivant. 
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26159 INC D 


Incrémentation de D d’une unité. 


26160 JP Z,26166 


Si, au cours de l’incrémentation précédente de D, nous dépassons 
255, l’indicateur passe à Zéro, cela indique que le maximum d’octets 
successifs égaux que nous pouvons prendre en compte a été dépassé. 
Nous faisons donc un saut à l’adresse qui permet d’inscrire le résultat. 
Le dernier octet comparé deviendra ensuite l’octet de référence de la 
prochaine suite. Au passage, nous remettrons D à la valeur 255 puisque 
ce dernier octet n’appartiendra pas à la suite que nous allons inscrire. 


26163 JP,26141 


Saut inconditionnel à l’adresse 26141, c’est la fin de la boucle et 
nous retournons tester l’octet suivant de la mémoire écran. 


26166 LD D,255 


Comme annoncé précédemment, nous remettons D à la valeur 255. 


26168 NOP 
Ordre blanc (l’équivalent d’un REM). 


26169 INC BC 


On incrémente BC d’une unité pour obtenir l’adresse de la mémoire 
où nous allons écrire le résultat de la compression. Comme cette 
incrémentation a lieu avant l’écriture, nous avons initialisé au début 
du programme HL à 26203, alors que le début de la zone est 26204. 


26170 LD AE 


Charge la valeur de E dans A, pour permettre l'écriture dans les 
mémoires de la zone image compressée ; E contient la valeur commune 
des octets compressés. 


26171 LD (BC),A 


Ecrit la valeur contenue dans A dans la mémoire dont l’adresse est 
contenue dans BC. 
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26172 LD A,D 


Charge la valeur de D dans A pour permettre l’écriture dans les 
mémoires de la zone image compressée. D contient le nombre d’octets 
successifs égaux. 


26173 INC BC 
Incrémentation de BC pour écrire à la mémoire suivante. 


26174 LD (BC),A 


Ecrit la valeur contenue dans A dans la mémoire dont l’adresse est 
contenue dans BC. 


26175 JP 26138 


Saut inconditionnel à l’adresse 26138 pour recommencer l’exploration 
de la zone image écran. 


26178 INC BC 


Comme nous avons fait le test de fin d’exploration avant de passer 
dans le morceau de programme qui écrit les résultats, quand nous 
sortons de la boucle d’exploration en fin d’image nous devons en 
inscrire le résultat dans la zone image compressée. Comme précédem- 
ment, nous incrémentons BC. 


26179 LD (BC),A 


Ecrit A à l’adresse contenue par BC. 
28180 LD AD 
Charge D dans A. 


26181 INC BC 
Incrémente BC. 


26182 LD (BC),A 


Ecrit A à l’adresse contenue par BC. 
26183 LD 26189,BC 
Le nombre d’octets qui composent l’image compressée nous sera 
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nécessaire pour l’enregistrement sur disquette de l’image compressée, 
nous l’inscrivons dans les mémoires 26189 et 26190. 


26187 RET 
Retour au point où le programme a été appelé. 


Lignes 850 et 860 


Boucle en I pour charger les valeurs de notre programme de 
décompression en langage machine. 


PROGRAMME DE DÉCOMPRESSION 
42589 LD HL,49152 


Charge HL avec la valeur 49152. Première adresse de la zone où 
nous allons reconstituer l’image. HL contiendra ensuite l’adresse cou- 
rante où l’octet de l’image devra être écrit. 


42592 LD BC,34395 


Charge BC avec la valeur 34395. Première adresse, moins une unité, 
de la zone où se trouve l’image compressée. BC contiendra ensuite la 
première adresse du couple d’octets à décompresser. 


42595 INC BC 
Incrémentation de BC d’une unité. 


42596 LD A,(BC) 


Charge A avec la mémoire dont l’adresse est contenue dans BC. 
C’est la valeur commune d’une série d’octets de l’image. 


42597 LD D,A 


Charge D avec le contenu de A. 


42598 INC BC 


Incrémente BC d’une unité. 
42599 LD A,(BC) 
Charge A avec la mémoire dont l’adresse est contenue dans BC. 


— 139 - 


C’est le nombre d’octets successifs égaux dont on vient de transférer 
la valeur dans D. 


42600 LD (HL),D 


Ecrit la valeur de D dans la mémoire dont l’adresse est contenue 
dans HL. 


42601 INC HL 


Incrémente HL d’une unité. 


42602 DEC A 


Décrémente A d’une unité. 


42603 JP NZ,42600 


Saut conditionnel ; si Non Zéro, à l’adresse 42600. Si, au cours de 
la décrémentation précédente de À, celui-ci est arrivé à Zéro, l’indicateur 
passe à Zéro et il n’y a pas de saut, on passe à l’ordre suivant ; cela 
correspond au fait que l’on a écrit l’octet commun le nombre adéquat 
de fois dans la zone image écran. Dans le cas contraire, on doit continuer 
à écrire cet octet et l’on fait un saut en 42600 pour continuer l’écriture. 


On va, comme pour le programme de compression, traiter la fin de 
décompression en testant si HL est arrivé à 65535, en suivant la 
même procédure. 


42606 LD AL 


Charge A avec la valeur de L. 


42607 XOR,255 


OÙ exclusif avec la valeur 255. 


42609 JP NZ,42595 


Saut conditionnel, si Non Zéro, à l’adresse 42595. 


42612 LD AH 
Charge A avec la valeur de H. 
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42613 XOR,255 
OÙ exclusif avec la valeur 255. 


42615 JP NZ,42595 


Saut conditionnel, si Non Zéro, à l’adresse 42595 (ce qui correspond 
au fait que la valeur 65535 n’est pas encore atteinte). Sinon, on continue 
la décompression. 


42618 RET 


Retour au point où le programme a été appelé. 


Nous passons maintenant au morceau du programme qui teste cet 
ensemble compression/décompression. 


Ligne 1230 


Appel du programme de compression. 


Ligne 1240 


Déplacement de l’image compressée de la zone 26204-34395 vers 
la zone 34396-42587, à l’aide du programme de recopie d’image mis 
au point précédemment. 


Ligne 1250 


Le résultat de la compression (taille de l’image compressée) est 
prélevé des mémoires où le programme de compression l’a inscrit. 


Ligne 1260 


Enregistrement sur disquette de l’image compressée, sous forme 
d’un fichier binaire dont l’adresse de départ est 34396 et la longueur, 
la taille de l’image compressée. 


Ligne 1270 


Message de fin d’enregistrement. 


Ligne 1280 


Remise à zéro de l’image écran et chargement de l’image compressée. 
Appel du programme de décompression. 
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Lignes 1290 et 1300 


Une boucle de retard pour pouvoir examiner l’image à l’écran. 


Pour compléter ce listing, voici le DUMP mémoire des deux pro- 
grammes en langage machine. 


PROGRAMME DE COMPRESSION 


26131 ë_ 
26132 53 
26133 @ 
26134 172 
26135 1 
zé13é 71 
26127 182 
26138 z2 
26139 1 
Z2614ü 74 
z6141 35 
Zé142 125 
26143 238 
261 44 255 
26145 174 
Z6144 42 
26147 182 
24148 174 
Z6147 23€ 
Zé6158 255 
26151 282 
26152 éé 
26153 182 
Z4154 125 
26155 176 
2éiSé 174 
26157 57 
26158 1az 
26159 zû 
Zé168 zû2 
Zétéi 54 
Zéié2 18% 
261463 195 
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PROGRAMME DE DÉCOMPRESSION 


42585 ä 
32589 33 
425 4 
42571 172 
4227E 1 
42593 gi 
42574 134 
42575 3 
4257é 1 
42577 S7 
AZSFS 3 
42597 1& 
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Il ne vous reste plus qu’à introduire ce programme. L’enregistrer 
sur disquette. Le tester. Corriger les erreurs de frappe... et passer à la 
suite. Une remarque en passant : si vous avez fait des erreurs, vous 
courez le risque de perdre la main complètement. Dans ce cas, pour 
continuer, une seule possibilité : éteindre votre Amstrad et le rallumer ; 
le CTRL + SHIFT + ESC est habituellement inopérant. 


— 144 - 


13. LE SCROLLING D'ÉCRAN 


Pour simplifier l’affichage à l’écran, l’ Amstrad possède un scrolling 
d’écran par logiciel. 

Examinons-en tout d’abord le fonctionnement : 

Lorsque l’on écrit par un ordre PRINT non précédé d’un ordre 
LOCATE, l'écriture s’effectue à la ligne suivant celle où est écrit le 
dernier texte. Quand l’écriture est terminée, le curseur se place à la 
ligne suivante. 

Par exemple, après un CLS dans un programme en cours d’exécution, 
le premier PRINT écrit sur la première ligne, le deuxième PRINT sur 
la deuxième ligne (à condition bien sûr que le texte du premier PRINT 
ne dépasse pas une ligne de longueur), et ainsi de suite. De même, 
lorsque l’ Amstrad vous envoie un message READY ou SYNTAX 
ERROR, il écrit sur la ligne suivante et positionne le curseur sur la 
ligne d’après. 

Quand on arrive à la 25° ligne, le positionnement du curseur sur la 
ligne suivante déclenche un décalage de toutes les lignes vers le haut : 
le texte de la 25° ligne passe à la 24° ligne, celui de la 24° à la 23°, 
et ainsi de suite , la première ligne comporte alors le texte de la 
deuxième ligne, et le texte de la première ligne est perdu. On a donc 
un scrolling avec perte du texte de la première ligne. 

Dans l’Amstrad, comme nous l’avons annoncé, ce scrolling est 
effectué par logiciel. 

Expliquons rapidement le fonctionnement de ce logiciel. Chaque 
ligne est représentée par des mémoires situées dans la zone d’adresses 
49152 à 65535 (les mêmes bien sûr que pour l’écran graphique). Une 
ligne de pixels, soit 320, est représentée par 80 octets. A la mise sous 
tension (ou après un reset complet, un RUN ou un NEW), la première 
ligne de pixels correspond aux mémoires d’adresses 49152 à 49231, 
la deuxième ligne de pixels aux mémoires d’adresses 51200 à 51279. 
Pour avoir une ligne de texte, il faut huit lignes de pixels. 

La première ligne de texte correspond aux mémoires d’adresses : 


49152 à 49231 
51200 à 51279 
53248 à 53327 
55296 à 55375 
57344 à 57423 
59392 à 59471 
61440 à 61519 
63488 à 63567 
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La deuxième ligne de texte aux mémoires d’adresses : 


49232 à 49311 
51280 à 51359 
53328 à 53407 
55376 à 55455 


57424 à 57503 
59472 à 59551 


61520 à 61579 
63568 à 63647 


Pour effectuer le scrolling, la première possibilité consiste à inscrire 
les octets correspondant à la deuxième ligne de texte dans les mémoires 
correspondant à la première ligne de texte, puis ceux de la troisième 
ligne dans les mémoires correspondant à la deuxième ligne, et ainsi 
de suite. Ce n’est pas celle qu’utilise l’ Amstrad. 

Le logiciel qui gère l’affichage à l’écran possède une table qui lui 
indique l’adresse de la première mémoire qui contient le premier octet 
de la première ligne, et il est capable de calculer alors où se trouvent 
les octets adéquats pour représenter les différentes lignes, compte tenu 
du fait que l’on considère que la mémoire qui suit la mémoire 65535 
est la mémoire d’adresse 49152. Le déclenchement du scrolling change 
l’adresse de la mémoire qui représente la première ligne. En pratique, 
l’ Amstrad peut effectuer des scrollings caractère par caractère et non 
pas ligne par ligne. 

Par conséquent, en cours d’utilisation de notre logiciel CREIMAGE, 
tout déclenchement du scrolling, provoqué par exemple par un message 
d’erreur de l’AMSDOS, perturbera notre image graphique, alors que 
les octets représentant notre image dans les mémoires ne seront pas 
modifiés. Nous allons inclure dans notre logiciel un petit programme 
en langage machine qui permettra de déclencher systématiquement la 
remise à zéro du scrolling pendant l’utilisation de CREIMAGE. 

Pour cela, il suffit d’appeler un sous-programme, installé à demeure 
dans l’ Amstrad à l’adresse 48133, en lui transférant les valeurs de 
remise à zéro du scrolling. 

Nous implanterons ce programme à l’adresse 26610, il sera appelé 
par CALL 26610. 

En voici les ordres en assembleur ainsi que le DUMP mémoire. 


26110 LD HL,0 Charge la valeur O dans HL 
26113 CALL 48133 Appel du programme de scrolling 
26116 RET Retour au programme d’appel 
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26110 
26111 
26112 
26113 
26114 
26115 
26116 


33 
0 
0 
205 
3 
188 
201 


Nous pouvons maintenant passer au logiciel CREIMAGE. 
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14. DESCRIPTION 
DU LOGICIEL CREIMAGE 


IMPLANTATION DANS LES MEMOIRES 


ADRESSES ADRESSES OCCUPATION 
255-255 65535 jage 
0-192 49152 
123-166 42619 
92-166 42588 | Décompresseur 
91-166 42587 ï 
92-134 34396 Image 
] Image2 
91-134 34395 
92-102 26204 | Image22 
91-102 26203 . . 
79-102 26191 Recopie mémoires 
78-102 26190 
19-102 26131 Compresseur 
18-102 26130 
5-102 26117 Grand rectangle 
4-102 26116 l 
253-101 26109 | Scrolling 
252-101 26108 Image 
253-37 9725 8 
252-37 9724 
111-1 367 | CREIMAGE BASIC 


REMARQUE PRELIMINAIRE 


Le système de coordonnées de l’ Amstrad ne varie pas en fonction 
du mode choisi : X varie toujours de O0 à 639 et Y de O à 399. Mais, 
par exemple en mode 1, il n’y a que 320 positions possibles pour X 
et 200 pour Y. A deux valeurs successives de X ou Ÿ ne correspond 
qu’une seule position sur l’écran. Les valeurs 0 et 1 donnent le même 
point sur l’écran. Pour se simplifier la tâche, l’utilisateur donnera les 
positions sur l’écran dans un système où X variera de O à 319 et Y 
de 0 à 199, et c’est le logiciel qui fera les transformations nécessaires. 
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INHIBITION DES MESSAGES D'ERREUR 


Quand un programme BASIC détecte une erreur en cours d’exécution, 
l’interpréteur envoie un message d’erreur et arrête l’exécution du 
programme, ce qui peut perturber le bon fonctionnement de notre 
logiciel CREIMAGE. Nous allons utiliser l’ordre ON ERROR GOTO, 
qui provoque un saut à l’étiquette que l’on inscrit à la suite de cet 
ordre, empêche l’envoi du message d’erreur et évite l’interruption du 
programme. Cet ordre ne traite que les messages d’erreur du BASIC 
et pas ceux de l’AMSDOS. 

La place disponible en mémoire pour CREIMAGE n'étant pas très 
grande, plutôt que d’essayer de tester la validité des valeurs données 
par l’utilisateur, nous allons utiliser cet ordre pour traiter par exemple 
des données qui provoqueraient une division par zéro ; et, dans le 
sous-programme de traitement de l’erreur, nous signalerons à l’utilisa- 
teur qu’il vient de se produire une erreur de BASIC, puis nous 
terminerons par une boucle d’attente, suivie de l’ordre RESUME qui 
permet de reprendre le cours normal du programme. 


5 ON ERROR GOTO 62464 


626006 GOSUB 69836:CLS:PRINT "ERREUR BASI 
C':WHILE INKEY#="":WEND:GOSUB 666046 : RESU 
ME 16866 


Comme nous l’avons signalé plus haut, ON ERROR GOTO ne traite 
pas les messages d’erreur de l’AMSDOS, tels que DISK MISSING 
ou FILE NOT FOUND. Certains de ces messages n’arrêtent pas le 
programme (par exemple, c’est le cas lorsque l’on essaie de supprimer 
un fichier qui n’est pas sur la disquette), vous verrez alors apparaître 
un message fugitif, immédiatement effacé par CREIMAGE. D’autres 
messages arrêtent momentanément le programme (par exemple DISK 
MISSING) ; la correction de l’anomalie permet de reprendre le cours 
normal (mettre la disquette dans notre exemple et taper R(ETRY). 
Pour finir, certains messages arrêtent l’exécution (par exemple, DISK 
FULL). 

Dans ce dernier cas, si l’on a utilisé récemment la fonction C(opie), 
il suffit de faire GOTO 1000 puis R(ecopie) pour rappeler IMAGE2 
dans IMAGE. Si l’on n’a pas utilisé C(opie), il faut faire un ordre à 
exécution immédiate : 


CALL 26110:GOSUB 60040:GOTO 1000 
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ce qui permet de récupérer IMAGE3 dans IMAGE1 ; IMAGE3 ayant 
été stockée lorsque le texte correspondant à la dernière fonction appelée 
est apparu. 

D'une manière générale, IMAGE2 et IMAGE3 ne sont jamais altérées. 
Pour détruire IMAGE, il faut utiliser la fonction R(ecopie) ou commen- 
cer une compression d’image ; pour détruire IMAGE3, il faut utiliser 
l’appel d’une fonction. Bien sûr, NEW et le reset complet détruisent 
IMAGE et IMAGES. 

Ensuite, nous trouvons la préparation des sous-programmes en langage 
machine : 















14 MEMORY FPZSIMODE 1: CATÉ 4,8, 2û 
1S5,2H1,4,62,,33,,,17 S,188,2 
HIS ITS 1,7, IE, 120,129,2 
£os,174,42,162,i24,258, n2pz és, 16: 
3170,174,5F,142,2H,242,54,142,17S,2 
Lssr 200 ss 12832012253324195 

26 DATA 26,102,3,2,122,2,2,237,67,77,182 
2h1,68,,,4,14,64,17,,133,,,257,176,241, 
4,33,4,174,1,71,154,3,14,87,3,18,114,35, 
61,174,144,164,125,258,285,174,97 ,léé,1z 
+,238,2932,174,77,léé, ZE 1,8 

36 FOR 1224114 TO Zé2A2:READ A:POKE I, 
MEET: FOR ISqUSSS TO dgZéiT:FEMD M:PFOKE I, 
AGMEST:SPEEL KEY 16,1:E#2=" 0 % 

44 E=i:lf=ii:li=édil2=s:lZsis:P=4: CORDER 
LIGOSUE 144564: LOCATE 12,1:FRINT "CREATIS 
M D'IMAGES": LOCATE 15S,1Z2:IPRINT "EXPLICAT 
DONS LUCATE 17,26: PRINT "TAPEZ {ES ":UMI 
LE IMÉEYES "MU SMEND: CLS 

M = Taper control G. 


C1 Positionnement du HIMEM en 9724 et passage en mode 1. 

[] Les DATA correspondant aux différents sous-programmes en lan- 
gage machine déjà vus : remise à zéro du scrolling, réalisation de 
grands rectangles (ce sous-programme sera expliqué avec la fonction 
ZONE), compresseur graphique, transfert de mémoires et décompresseur 
graphique. 


Remarque 


Différentes valeurs sont utilisées pour le transfert de mémoires, par 
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conséquent nous ne chargeons ici que les valeurs permanentes du 
transfert de mémoires. 


[] Lecture des DATA et écriture en mémoire à la place adéquate. 


[] La rapidité de réponse des touches est mise à sa valeur maximale 
pour avoir le moins de temps d’attente possible. 


[] La variable E$ servira à effacer les réponses incorrectes de l’utilisa- 
teur et à faire retentir un ding d’avertissement. Le ding est provoqué 
par le CTRL D qui apparaît sous la forme de ” ”” sur le listing. 


[1 Positionnement de la variable B à 1 : B représente la couleur de 
la bordure. 


CT Les variables I0, 11, 12 et 13 représentent les quatre couleurs des 
encres ; on les initialise aux valeurs de démarrage de l’ Amstrad. 


[1 P représente le numéro d’encre du curseur graphique ; on l’initialise 
sur l’encre n° O. 


C] Message de démarrage pour indiquer quelle touche donne le résumé 
des fonctions de CREIMAGE. 


[1 Boucle d’attente pour permettre la lecture, puis nettoyage de l’écran. 


Le logiciel CREIMAGE possède plusieurs sous-programmes qui 
vont nous servir très souvent. Nous allons donc commencer par les 
décrire. En voici le listing. 


: POKE 
: RETLIRH 
:POKE 2 
: RETUFR#HI 
Ff:PFOKE 

F£L:RETUR 


Se Qt 
a) 
4 
4 
ti 
TT 
C 
7. 
m 
. 


“1 Gi ri li ti © 


Cr. 
+ 


Cr. 


KE 26197,87:POKE 
ALL Zéi 92: LOÜCATE 
ATE 1,2S5:FRINT " 





"RETURN 


SGA FÜKE £éiré, ti: 


é,@:POKE 26177,192: :POKE 2 
6179,253:POKE 246200,37: 


CALL Zé Pare 


Tout d’abord, nous avons cinq sous-programmes 60000, 60010, 
60020, 60030, 60040, qui vont effectuer les divers transferts d’images 
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qui nous sont nécessaires. Ils sont tous les cinq construits de la même 
manière : par une série de quatre POKE. Nous complétons le programme 
en langage machine de transfert d’images pour y mettre les bonnes 
adresses de départ et d’arrivée, puis nous appelons le transfert. 


Ligne 60000 


Transfert de IMAGEI1 vers IMAGE? : adresse de départ 49152, soit 
0-192 ; adresse d’arrivée 26204, soit 92-102. Le nombre d’octets à 
transférer est constant et égal à 16384, il a été introduit au début du 
programme. 


Ligne 60010 


Transfert de IMAGE2 vers IMAGE! : adresse de départ 26204, soit 
92-102 ; adresse d’arrivée 49152, soit 0-192. 


Ligne 60020 


Transfert de IMAGE2 vers IMAGE3 : adresse de départ 26204, soit 
92-102 ; adresse d’arrivée 9726, soit 254-37. 


Ligne 60030 


Transfert de IMAGE vers IMAGE3 : adresse de départ 49152, soit 
0-192 ; adresse d’arrivée 9726, soit 254-37. De plus, nous avons ajouté 
un ordre PRINT FRE(“”), pour forcer l’interpréteur à “faire le 
ménage” dans le stockage des variables alphanumériques. Cela permet 
d'éviter des problèmes de MEMORY FULL ou d'écrire dans la zone 
de IMAGE. 


Ligne 60040 


Transfert de IMAGE3 vers IMAGE! : adresse de départ 9726, soit 
254-37 ; adresse d’arrivée 49152, soit 0-192. 


61484 LOCATE 1,24: PRINT "MENCREZ= " 

61614 LOCATE 8,24: INPUT M"",F:IF P<6 OR F 
33 THEN LOCATE S,Zd:FPRINT Ef$:GOTO é1414 
41148 LOCATE 158,24:PRINT "K = 1 
1116 LOCATE ZE ,24: INPUT MU ,KI: LOCÉTE 24 
324:INPUT "MY: GOSUE 68646 : RETURN 
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Lignes 61000 à 61110 


Acquisition d’un numéro d’encre avec test de sa validité, puis 
acquisition d’un couple de coordonnées X1 et Y1 pour le tracé des 
droites. Il n’est pas nécessaire de vérifier que ces coordonnées restent 
dans les limites de l’écran, car les fonctions graphiques du BASIC 
acceptent des coordonnées en dehors de l’écran. De plus, ces coor- 
données n'’influenceront pas la position de notre curseur graphique 
(variables X et Y). 


é12z4f LO ICATE 1,£4:PRINT "COUL= RéT OM 
= KC= YL="; 

é1z14 LOCATE 7,24: INPUT "",P:IF P<ÿ OR F 
33 THEN LOCATE F,24:PRINT É#: GOTO é1214 

é1224 LOCATE 18,24: IMPUT "",R:LOCATE Z7, 


Z4: INPUT MM ,KC:LOCATE 3é, 24: INPUT "M YO: 
GOSUE 44446: RETURN 


Lignes 61200 et 61220 


Rappel IMAGE3 vers IMAGE, car ce sous-programme est appelé 
après avoir effectué des affichages à l’écran (c’est l’équivalent pour 
CREIMAGE de CLS). Acquisition du numéro d’une encre avec test 
de la validité et acquisition des coordonnées XC et YC du centre d’un 
cercle ainsi que de son rayon R sans test des valeurs (voir explication 
précédente). Rappel IMAGE3 vers IMAGE. 

ATE 1,2S:PRIMT "Cou 
K 1= K2= 
f2= KE a=" 
314 LOCATE 11,23: 
1, 


#15 HEUT MM ,pF: 1F F4 OK 
PS THEN LOCATE 1 
4 


ZS:PRINT E$:GOTO 4131 


LOCATE 2S,28:INPUT "",X1:LOCATE 35 
,23:INPUT "",Y1:LOCATE 5,24:INPUT "9 ,x2: 
LOCATE 15,24:INPUT "",Y£Z:LOCATE 25,274:IN 
PUT "",X3:LOCATE 35,24:INPUT "",Y3:GOSUE 
444% : RETURN 


Lignes 61300 et 61320 





Rappel IMAGE3 vers IMAGE, car ce sous-programme est appelé 
après avoir effectué des affichages à l’écran. Acquisition d’un numéro 
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d’encre avec test de la validité et acquisition des coordonnées X1, 
Y1, X2, Y2, X3 et Y3 des trois sommets d’un triangle sans test des 
valeurs (voir explication précédente). Rappel IMAGE3 vers IMAGEI. 


Une autre particularité de CREIMAGE sera d'introduire dans des 
mémoires de la zone écran qui ne sont pas (ou plutôt peu) utilisées 
les informations correspondant aux couleurs des quatre encres et à la 
couleur de la bordure. Cela permettra de redonner à l’image les couleurs 
choisies au moment de sa réalisation sans faire appel à d’autres 
informations que celles contenues dans le fichier binaire de l’image, 
qu’elle soit ou non compressée. 

En dehors du scrolling d’écran, nous avons vu que toutes les 2 000 
mémoires il y avait 48 octets inutilisés ; nous allons choisir les quarante- 
huit derniers pour mettre cette information, et plus précisément la 
mémoire d’adresse 65529 pour la couleur de la bordure et les mémoires 
65530 à 65533 pour les quatre encres. Nous aurons ensuite les 
précautions suivantes à prendre : 


- Réinscrire ces informations chaque fois que nous ferons un CLS. 


+ Faire de même si on risque d’avoir un déclenchement du scrolling 
d'écran. 


En conséquence, nous ferons ce travail d’écriture par un sous- 


programme qui sera appelé systématiquement à un point stratégique 
du programme. 


M ACQUISITION DES DEMANDES UTILISATEUR 
DÉPLACEMENT DU CURSEUR GRAPHIQUE 
ET CHOIX DU STYLO 


1466 GÜSUE 148S6:BORDER B:INK G,IG:IME 1 
IIS INK LIÉE: INK S,IZS:PLOT &,T,P 

1188 CALL Zé114:AE=""IUHILE Az" " :AS=INE 
EY$ :WEND :A=ASCÉUPPERSCABIILIF 4547 40 À 
652 THEN P=Â-d5s 


1119 X=X-Zsiih=rd5i-( é=r42331:1F “€ THEM 
= 4 

1126 IF X5 #38 THEH K=éss 

1134 v=ÿ-Ze(é=2dñi-(é=r4113:1F {6 THEM 
Y=6 


pe 
DA 


iaaû 
2GGû,22400,1<û0 
anna, 25408 ,1148 
2466 ,1148,21000 
aa ,z22008,17400, 





C1 Inscription des couleurs choisies dans la zone ECRANI, positionne- 
ment des couleurs choisies pour les encres, affichage du curseur 
graphique. 


[] Remise à zéro du scrolling. Boucle d’attente d’un ordre de l’utilisa- 
teur. 


[1 On calcule le code ASCII de la touche enfoncée par l’utilisateur 
après avoir transformé les minuscules en majuscules : variable A. 


[] Si A est compris entre 47 et 52, c’est que l’utilisateur a enfoncé 
la touche 0, 1, 2 ou 3, c’est donc un choix d’encre ; on calcule 
P = A — 48 pour mettre dans P le numéro de l’encre. 


[1] Les ordres 1110 à 1150 gèrent les déplacements du curseur graphique 
lorsqu'ils sont effectués par les touches —>, <-, ” et {| à l’aide 
d'équations logiques sur la valeur des codes ASCII de ces quatre 
touches : —-> a comme code ASCII 243 ; si A = 243, l'expression 
logique (A = 243) vaut — 1 (moins un) et X est augmenté de deux 
unités, ce qui correspond au déplacement élémentaire d’un pixel. 
Même raisonnement pour les autres touches. De plus, lorsque l’on 
arrive aux extrémités de l’écran on bloque les déplacements. 


[] Aiïguillage à 26 voies en fonction de la demande de l’utilisateur. 
A-64 permet d’associer les valeurs 1 à la touche A, 2 à la touche B, 
3 à la touche C, et ainsi de suite, et donc d’envoyer le programme à 
l’endroit désiré. Nous utilisons uniquement 18 voies, les autres sont 
libres et bouclent donc sur l’ordre 1100. 


Nous passons maintenant aux différentes fonctions disponibles. 


CHANGEMENT DE LA COULEUR DE BORDURE 


Touche d’appel B comme Bordure. 


—. 157 = 


124644 GOSUR 64834: LOCATE 1,24:PRINT "ER 
OÙURE = " 

12414 LOCATE 11,24: INPUT "",B:IF B<4 OR 
Er£é THEN LOCATE 11,24:FRINT E$:GOTO 126 
IG:ELSE GOSUE 66444: GOTO 1444 


C1 Transfert IMAGE1 vers IMAGE3. 
CT Impression du message. 
[] Acquisition de la valeur donnée par l’utilisateur. 


[] Test de la valeur : celle-ci doit être comprise entre 0 et 26 
(27 couleurs disponibles). 


[] Si la valeur n’est pas correcte, effacement de la réponse avec ding 
et attente d’une nouvelle réponse. 


CT Si la réponse est valable, on rappelle IMAGE3 vers IMAGE! et 
on revient en 1000 (c’est dans l’ordre 1000 qu’on trouve l’appel au 
sous-programme 14050 qui inscrit la valeur de la couleur de la bordure 
dans les mémoires de la zone écran). 

POSITION DU CURSEUR GRAPHIQUE 


Touche d’appel P comme Position. 


12664 GÜSUE é6434 : LOCATE 1,24: PRINT "POS 


ITION : X= ";KXPOS/2;" Ye "iYPO0S/2Z 
12816 WHILE INKEY#="":WEND:GOSUE éääd4û:G 
OTO 11&4 


C1 Transfert IMAGEI1 vers IMAGE3. 


[1 Affichage de la position du curseur graphique à l’aide des ordres 
adéquats du BASIC. Rappelons que la position donnée par les ordres 
BASIC XPOS et YPOS correspond aux 640 et 400 positions du 
mode 2, donc on divise le résultat par 2. 


[1 Boucle d’attente pour que l’utilisateur puisse lire l’information. 
C] Rappel de IMAGE3 vers IMAGE! et retour en 1100. 
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CHOIX DES COULEURS ASSOCIEES AUX ENCRES 


Touche d’appel I comme Ink. 


144 GOSUE SAGE: LOCATE ié,22: PRINT "Fé 

LETTE :":LOCATE 1,Z4:FRINT "I1@= li= 
1£= 1Z== Lf-2é3": 

14418 LOCATE 4,29: INPUT "SIG: IF I14€64 OR 

Iüï£é THEN LOCATE 4,%Z4: PRINT E+t:GOTO 14 

a14 


14424 LOCATE 12,24: IMPUT MMSTIGSIF 11:64 0 
F lié THEN LÜOCATE i1Z,£24:PFRINT E#&:GÜTO 


EG ,£ESs INPUT MMIZSIF 1E£€6 0 
FO I£2:Zé THEN LOCATE ZG,24:PRINT E$:GOTO 


14448 LOCATE 28,24: INPUT MMSISIIF 1566 0 
FO I133£é THEH LUCATE ES, 24: FRINT E#:GOTO 
1SRAG:ELSE GOSUE S4644:GOTO 18464 

14454 PFÜKE H,IG:POKE 429531 ,11:POKE é 
Dur, ISIPFOKE 5533, IS: PÜKE 45529, E:RETUR 
NH 


C] Transfert IMAGEI1 vers IMAGE3. 


C] Impression du message, I0, I1, 12, 13 sont les variables correspondant 
aux quatre encres du mode 1. 


C1 Pour chacune des réponses, nous testons la validité de la réponse. 
Comme pour le choix de la bordure, la valeur donnée doit être 
comprise entre 0 et 26. 


[] Si la valeur n’est pas correcte, effacement de la réponse avec ding 
et attente d’une nouvelle réponse. 


[J Si la valeur est correcte, on passe à l’encre suivante avec le 
même test. 


[] Lorsque l’on a les quatre réponses correctes, on rappelle IMAGE3 
vers IMAGE et on retourne en 1000 où se fait l’appel du sous- 
programme d’inscription des valeurs dans les mémoires de la zone écran. 


[T On trouve enfin le sous-programme qui inscrit I0 à l’adresse 
65530, I1 à l’adresse 65531, I2 à l’adresse 65532, 13 à l’adresse 65533 
et B (la bordure) à l’adresse 65539. 
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DEPLACEMENT DU CURSEUR GRAPHIQUE 


Touche d’appel M comme Mouvement. 
15844 GOSUE SGGT4:LOCATE 1,Z24:FPRINT "DEF 
LACEMENT:GOSUE 41166 :K=2#x1 :=2x%1 : GOTO 
ia 


C] Transfert IMAGE vers IMAGE3. 


CT Impression du message. 


CT Appel au sous-programme 61100 qui permet de recevoir un couple 
de coordonnées X1, Y1. 


CT On muitiplie par 2 ces coordonnées pour se mettre dans le système 
d'unité du BASIC Amstrad. 


[] Retour en 1000 (il n’est pas nécessaire de rappeler IMAGE3 vers 
IMAGE], c’est le sous-programme 61100 qui s’en charge). 


TRACE D’UNE DROITE EN COORDONNEES ABSOLUES 


Touche d’appel D comme Droite. 


Zu: PRINT "CO 


12644 GÜSUE é4d434:LOCATE 18,25 
414606: DRAM Zæx 


ORDONNEES ABSOLUES" : GOSUB 
1,2#Y1,P:GO0TO 1168 


C] Transfert IMAGEI1 vers IMAGE. 


CT Impression du message. 

CT Appel au sous-programme 61100 qui permet de recevoir un couple 
de coordonnées X1, Y1. 

[] Tracé de la droite (le curseur graphique ne change pas de place 
pendant cette opération). 





CT Retour en 1100 (il n’est pas nécessaire de rappeler IMAGE3 vers 
IMAGE, c’est le sous-programme 61100 qui s’en charge). 
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TRACE D’UNE DROITE EN COORDONNEES RELATIVES 


Touche d’appel Y. 


17684 GOSUE é4436@:LOCATE 168,2S:PRINT "CO 
ORDONNEES RELATIVES" :GOSUB é6146@:DRAUR 2 
EX1,2#T1,P: GOT 11684 


C1 Transfert IMAGEI1 vers IMAGE. 
C1 Impression du message. 


[] Appel au sous-programme 61100 qui permet de recevoir un couple 
de coordonnées X1, Y1. 


[1 Tracé de la droite (le curseur graphique ne change pas de place 
pendant cette opération). 


CT Retour en 1100 (il n’est pas nécessaire de rappeler IMAGE3 vers 
IMAGE, c’est le sous-programme 61100 qui s’en charge). 


SAUVEGARDE SUR DISQUETTE 
Touche d’appel S comme Sauvegarde ou Save. 
Programme pour CPC 464 


180804 GOSUB 466046:GOSUB 60436:LOCATE 1,2 
S:PRINT "SAUVEGARDE NORMALE (13 COMPRESS 
EE 2) :"3:GOSUB 191@G@:INPUT "NOM :",B$: 
GOSUE 64646:1F ÀA=S4 THEN CALL 261S32Z:C=PE 
EK{2Z26189)3+256xPEEK: 26176) -26203:ELSE 60S 
UE éQUSB:SAVE E$,E,2é623é,16364:GOTQ 1843 
@ 

16019 LOCATE 1,24:FRINT C;:11F C>28192 THE 
N PRINT " IMAGE > SK':WHILE INKEY$="":UWE 
ND:GOSUE 64446 :G0OT0 1168@ 

18626 FOR I=& TO SGAG:NEXT:POKE 26194,32: 
POKE Zé196,52:FOKE 26197,134:POKE 261797, 
92:POKE 246206 ,14Z2:CALL Zé192:POKE 26174, 
64: GOSUE 660646: GÜSUB é6460S8:SAVE E$,B,343 
7é6,C:GOSUB é4ag@ 

188036 GOÜSUE é6666:GOTO 1186 
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668058 POKE 45266,181:POKE 44668,16@t:RETU 
RN 
68866 FOKE 45286,37:POKE 44668 ,37:RETURN 


Programme pour CPC 6128 


184ua GOSUB 446006: GOSUE 64439: LOCATE 1,2 
SPRINT "SAUVEGARDE NORMALE 19 CÜMPRESS 
EE 62) :"3:GOSUE 17168:INPUT "NOM 1" ,ES: 
GOSUER saa 48: IF A=SûG THEN CALL Zé6132:C=PE 
EK(Z61897) +Z2SéxPEEK( 261974) -Z2é2435:ELSE MEM 
ORY 16384:SAVE E$,B,26236,16384:G0T0 188 
34 

1S8G16 LOCATE 1,24:PRINT Ci:lF CHSisz THE 
N PRINT " IMAGE > SK'3WMILE INKEY#=""IUE 
MO: GOSUE 66446: GOTO 1144 

156024 FÜR 1=6 TO SGU:NEXT:POKE 26174,3 
FOKE 2é617é,72: FOKE Zé177 134: FOKE Zéi 
FTZ:POKE Zé26040,160Z:CALL ZéiF£:PÜKE Zéi 
éd: GOSUE GG: MEMORY LéSSd: SAVE EF,E, 
376,C:GOSUB é44ag 

1S4SG MEMORY 724: GOTO 1166 


Q “0 Üi 
a HE out 


Es 


[1 Transfert IMAGE1 vers IMAGE : en effet, si la sauvegarde est 
sans compression, c’est IMAGE2 que l’on sauvegarde. 


C] Transfert IMAGEI1 vers IMAGE3. 
[1 Message pour demander si l’image doit être compressée ou non. 


[] Appel du sous-programme 19100 qui permet de tester si la réponse 
est bien 1 ou 2. 


[] Acquisition du nom de fichier donné par l’utilisateur. 
CT Rappel de IMAGE3 vers IMAGEI. 


[1] Si A = 50 l’utilisateur demande une compression d’image, on 
appelle donc le programme en langage machine de compression. 
Ensuite, on récupère la taille de l’image compressée dans la variable C 
et on passe à l’instruction suivante pour terminer le travail. 
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[1 Si l’utilisateur n’a pas demandé de compression, on remonte le 
HIMEM en 16384, on effectue la sauvegarde, puis on effectue un saut 
en 18030 pour terminer. 


[1] En 18010 et 18020 on va terminer la sauvegarde de l’image 
compressée : tout d’abord on affiche la taille de l’image en nombre 
d’octets. Si cette taille est supérieure à 8192, la sauvegarde ne peut 
être effectuée, on l’indique à l’utilisateur avec une boucle d’attente 
pour lui laisser le temps de lire, puis on rappelle IMAGE3 vers 
IMAGE! et on retourne en 1100. 


[1] Si la sauvegarde est possible, on effectue une boucle d’attente 
pour laisser à l’utilisateur le temps de lire la taille de l’image compressée. 
Ensuite on effectue le transfert de IMAGE22 vers IMAGE21 en indiquant 
les paramètres spécifiques au programme de recopie d’image. En effet, 
cette zone a une taille de 8 192 octets au lieu de 16 384 habituellement ; 
la recopie effectuée, on remet le 16384 dans le programme de recopie. 
On remonte le HIMEM en 16384 et on effectue la sauvegarde. On 
restitue ensuite IMAGE1 dans IMAGE2, car IMAGEZ2 a été écrasée 
par la compression. 


C1 Pour terminer les deux cas de sauvegarde, on repositionne le HIMEM 
et on rappelle IMAGE3 vers IMAGE! (en effet IMAGE a de nouveau 
été abîmée par le message donnant la taille de l’image compressée). 


Les changements de HIMEM sont effectués directement par l’ordre 
MEMORY dans le cas du CPC 6128 ; par contre, pour le CPC 464 
on fait appel aux sous-programmes 60050 et 60060 ; ces deux sous- 
programmes changent la valeur du HIMEM en effectuant des POKE 
dans les mémoires où le HIMEM est stocké par l’interpréteur. Comme 
signalé précédemment, l’ordre MEMORY a un bug dans le CPC 464 
et ne peut donc pas être utilisé dans ce cas. Comme les adresses de 
stockage du HIMEM sont différentes sur ces deux types d’Amstrad, 
il n’est pas possible d’avoir un programme commun aux deux Amstrad. 


CHARGEMENT A PARTIR DE LA DISQUETTE 
Touche d’appel L comme Load. 


Programme pour CPC 464 
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17444 GOSUE é4424:LOCATE 1,2 nn CHA 
RGEMENT NORMAL {13 DECOMPRES 623 :"3:G 
OSUE 17166: IMPUT "HOM ue 664 : 
LOAD B#H:IF 4=54 THEN CélLl 42569: GO0OSUE 64 


GABH:ELSE GOSUE ég4if 
17418 GOSUE 46446 : IH=PEEKS 455836) : I1=PEEK 
LT 1) : I ZS<PEEK I SSII) : 1'SSPFEEK( é5333):E= 
FEEK 452297) :GOTO 164% 


171646 AS=IMNKETSIIF 4E="" THEN 171684 :ELSE 
A=ASCCASIIIF 459 OR 4256 THEN GOSUE 66 
GA: GÜTO 114G:ELSE PRINT 43 : RETURN 


Programme pour CPC 6128 


17066 GOSUB 6683G:LOCATE 1,23:PRINT "CHA 
RGEMENT NORMAL (1) DECOMPFRESSE (2) :"3:3:6 
OSUB 197108:INPUT "NOM :",B$:MEMORY 146384 
:LOËD B$:1F 4=58 THEN CALL 425897:GO0OSUB 6 
6G0GG:ELSE GOSUB 66816 

17016 MEMORY 9724 :1G=PEEK( 65536) : I 1=PEEK 
(65531) :12=PEEK(65532) : IS=PEEK( 65533) : B= 
PEEK(6S5S5297) :GOTO 1668 

171060 AFS=INKEYS:IF A$="" THEN 191660:ELSE 
A=ASC(AHI:IF À<49 OR À>58 THEN GOSUB 66 
646:GO0OT0 116860:ELSE PRINT À$;:RETURN 


C1 Transfert IMAGE1 vers IMAGE3. 
[] Message pour demander si l’image doit être décompressée ou non. 


[] Appel du sous-programme 19100 qui permet de tester si la réponse 
est bien 1 ou 2. 


[] Acquisition du nom de fichier donné par l’utilisateur. 


[] On remonte HIMEM en 16384 et on charge le fichier dans 
IMAGE2 s’il s’agit d’une image normale et dans IMAGE?21 s’il s’agit 
d’une image compressée. 


[] Si la décompression a été demandée (A = 50), on appelle le 
décompresseur et on transfère IMAGE1 dans IMAGE2 puisque dans 
le cas de la décompression IMAGE2 n'existe pas. S’il n’y a pas de 
décompression, on transfère IMAGE2 dans IMAGE. 


[] Ce sous programme possède une boucle d’attente de la frappe 
d’une touche, puis la vérification que la réponse est bien 1 ou 2 ; si 
c’est le cas, on affiche la réponse, sinon on continue d’attendre. 


Même remarque que pour la fonction sauvegarde pour les change- 
ments de HIMEM. 


REMPLISSAGE D’UNE ZONE 


Touche d’appel Z comme Zone. 

2dAGG GOSUE 6434: LOCATE 17,22:FRINT "20 

HE: LOCATE 1,Z4:PRINT "RECTANGLE 13 TRI 

AIGLE 29 CERCLE (23) GRétID RECTAMNGLE 

gi" 

LGGIE AE=IMKRETSIIF AEz"" THEN Z4414 E 
A=ASCEASS : GOSUR éGUA4G:IF À246 OR 435 

HEN LIGG:ELSE ON 4-48 GOTO ZG1606,24244, 

4306 ,7@040û 


Nous proposons quatre types de zones : rectangle, triangle, cercle, 
grand rectangle ; nous commençons donc par l’affichage d’un menu. 


C1 Transfert IMAGE1 vers IMAGE. 
[1 Affichage du menu. 


C] Boucle d’attente de la réponse de l’utilisateur, transfert de IMAGE3 
vers IMAGE puis test de la validité de la réponse. Si la réponse n’est 
pas valable : retour en 1100. 


[] Aiguillage par un ON GOTO. 


Rectangle 


24148 GOSUE é0G0360:LOCATE 15,22:PRINT "RE 
CTANGLE" :LOCATE 1,24:PRINT "UNIFORME 

‘13 RAYE HORIZONTAL €2)2"3;:LOCATE i, 
25:PRINT "RAYE VERTICAL 43) COULEURS ALT 
ERNEES (4)"; 
20118 A$=""iUHILE A="":A8=INKEYS :WEND:é 
=ASCiAE) :GOSUB 68640:IF 448 OR 4>52 THE 
N 1184:ELSE LOCATE 1,24:PRINT "COULEUR 1 


= COULEUR 2? =":LOCATE 1,25:PRINT "Ki 
“i= X3= YS=" ; 


20134 LOCATE 13,24: INPUT "",Pl:IF P1<6 O0 
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R PI53 THEN LOCATE 13,24: PRINT E$:GOTO 

Zü1i36 

241464 LOCATE 28,24: INPUT "MSFZ:IF FE<6 0 

FR F£S THEN LOCATE 2Z8,24:PRINT E$:GOTO € 

üi4g 

EUiS4 LOCATE S,2S: INPUT MM SKI: LOCATE 15, 

CS INPUT MM,YI:LOCATE 2ZS,2S: INPUT "M", XK3: 

LOCATE ZS,2S: INPUT "M SYS: GOSUE 66468464 : ON 

48 GÜTO 24164,24170,2:4180,z4176 

ZUISG FOR I=Yi TO YSIMOUE Z#ki , EE] : DRéU 

ZLEKS, LE] ,PI1:NEXT:GOTO 1146 

£EGiFG FOR I=Y1 TO Y3 STEF ZIMOUVE Zax1,2*# 
IDR ZEXS,2#I PI:MQUE Zx#k1i,2#(01+13:DRé 

LI ZAKS,ZKCI+19 ,P£INEXT:GOTO 1166 

26184 FOR I=X1 TO #3 STEF Z:MOVE Z2%I,2%% 
LiDFRâl) ZE LETS PLIMOUE Z#il+15 ,2# vi: OF 

LU 2#(01+19,2#%3,P2::NEXT:GOTO 11686 

20176 FOR I=Yi TO Y23:FÜ0R Ke=X1 TO X3 STEF 
2:PLOT Z#K,2xI,P1:PLOT Z#iK+12,2%I,PZ:N 
EXT : P=PZ:F2=PI:PI=F:NEXT:GOTC 11684 


Nous donnons de nouveau quatre possibilités et donc un menu de 
choix : rectangle uniforme, rectangle rayé horizontalement, rectangle 
rayé verticalement, rectangle avec deux couleurs alternées. 


[] Boucle d’attente du choix de l’utilisateur. Test de la validité du 
choix ; si le choix n’est pas accepté, retour en 1100, ce qui permet 
de sortir de cette fonction si on s’est trompé sur la sélection. 


[1 Acquisition des deux couleurs avec test de la validité et acquisition 
des coordonnées des sommets inférieur gauche et supérieur droit du 
rectangle sans test de validité puisque les fonctions graphiques du 
BASIC acceptent des coordonnées en dehors des limites de l’écran. 


[1 Rappel de IMAGE3 vers IMAGE! et aiguillage sur le type de 
rectangle demandé. 
Ligne 20160 


Elle colorie le rectangle avec une seule couleur en traçant des lignes 
horizontales pour le remplir, la boucle est donc en Y. On a un MOVE 
pour se placer à gauche et un DRAW pour tracer la ligne horizontale. 
Retour en 1100. 
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Ligne 20170 


Elle colorie le rectangle en traçant une ligne horizontale avec la 
couleur P1 et une ligne horizontale avec la couleur P2 et ainsi de 
suite. La boucle est donc sur Y. Retour en 1100. 


Ligne 20180 


Elle colorie le rectangle en traçant une ligne verticale avec la couleur 
P1, une ligne horizontale avec la couleur P2 et ainsi de suite. La 
boucle est donc en X. Retour en 1100. 


Ligne 20190 


Elle colorie le rectangle avec un pixel de la couleur P1, puis un 
pixel de la couleur P2, puis P1 et ainsi de suite. On a alors deux 


boucles imbriquées en X et Y avec utilisation de PLOT et permutation 
des couleurs. Retour en 1100. 


Triangle 





5° De DKX=CXE-NTISES 
NT< LIIMOVE Z#X1,2%Y EX 2: 2e 2: : DRAUI 
I K,P:FOR J=i ee ext NY: l=14Dé 
:H=K +0: . DRéa | I, SF: HE’: TT: GOT { 1x 


 . GOSUE 61344: 
£ 


[] Appel du sous-programme qui permet de faire l’acquisition des 
coordonnées des trois sommets du triangle et du numéro d’encre. 


[] La coloration du triangle se fera en traçant des droites issues du 
sommet X1, Y1 en direction du côté opposé. On détermine les pas 
de calcul DX et DY pour faire varier les coordonnées d’arrivée de 


cette droite et on trace les droites successives avec une boucle. Retour 
en 1100. 


Pour certains triangles, vous constaterez que quelques pixels ne 
sont pas colorés ; pour les colorer il suffit habituellement de recommen- 


cer la coloration en effectuant une permutation circulaire sur l’ordre 
des sommets. 
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Cercle 


Z2U366 GOSUB é1ZGGU:FOR I=-PI<2 TO FI-/2Z ST 
EF 1AR:K=Z. SERaCOSCIS ORIGIN LEKC-K, Leave 
+ZARESINITS EI CRAUW 2KK,G,P:INEXT:ORIGIN 6,6 
:GÛTO 1166 


[] Appel du sous-programme qui permet l’acquisition des coordonnées 
du centre du cercle, de son rayon et du numéro d’encre. On colorie 
le cercle en traçant des rayons successifs dont l’angle avec l’horizontale 
varie. Retour en 1100. 


Grand rectangle 


L’Amstrad possède un sous-programme qui permet de colorer des 
rectangles. Les coordonnées de ces rectangles sont définies comme 
pour l’ordre BASIC LOCATE ; de plus on définit la couleur par la 
valeur de l’octet qui détermine quatre pixels successifs. Le résultat 
sera de grands rectangles composés d’un motif se répétant tous les 
quatre pixels horizontaux (les verticaux seront d’une même couleur). 
Le programme appelé étant en langage machine, cette opération sera 
très rapide. 

Comme pour le programme de remise à zéro du scrolling, nous 
écrivons un petit programme en langage machine pour transférer les 
valeurs adéquates et appeler le sous-programme de l’Amstrad. Il faut 
introduire : 


La valeur de l’octet qui détermine le motif dans l’accumulateur A. 
La limite gauche dans le registre H. 

La limite droite dans le registre D. 

La limite supérieure dans le registre L. 

La limite inférieure dans le registre E. 


L'adresse d’appel du sous-programme de l’ Amstrad est 48196, soit 
68-188. 

Nous implantons notre sous-programme entre l’adresse 26118 et 
l’adresse 26129 : 


26118 LD A 
26119 valeur à introduire dans A 
26120 LD HL 
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26121 ) valeur à introduire dans HL 
25122 ) 

26123 LD DE 

26124 ) valeur à introduire dans DE 
26125 ) 

26126 CALL 48196 

26129 RET 


En langage machine, on obtient : 


26118 62 
26119 -— 
26120 33 
26121 - 
26122 — 
26123 17 
26124 -— 
26125 — 
26126 205 
26127 68 
26128 188 
26129 201 


Les mémoires d’adresses 26119, 26121, 26122, 26124 et 26125 
seront remplies par le programme en langage BASIC placé en fin du 
programme d’acquisition. 

£LGA4UG GOSUE 64644: LOCATE 1,£Z4:PRINT "COU 
LEUR = Ki= Mis": LOCATE 15, 

ZS:PRINT "X2= Y2=" 

2Gü414 LOCATE 11,Z4:INPUT ""SFi:IF Fi<é 0 

KR P13255 THEN LOCATE 11,24:FRINT E#$:GOTU 
z2H4iE 

2GA4ZG LOCATE Z£,£4: INPUT "MK: IF Ki<6 © 

F KI:ST THEN LOCATE 22,Z24:FRINT Et:GOTO 

EGazt 

2643û LOCATE 33,24:IMNPUT ""SYI:IF vY1<8 © 

F YVi324 THEH LOCATE 33,Z4:PRINT E$:GOTO 

£2h43A 
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26446 LOCATE 22,23:INPUT "',KZ:IF K2<4 0 
R X2}:39 THEN LOCATE 22,23: PRINT ES : GOT O 

z6446 

ZG456 LOCATE 3S,£ZS: INPUT MMSY2:IF Y£Zé<6 0 
R Y2:24 THEN LOCATE S3S,Z2S:PRINT E$:G0TO 

z6454 

Züd4éG GÜSUE 6AG4G:POKE Zéi17,F1:POKE Zél 
21,Y1 :POKE 26122,X1 :POKE 26124,Y2 :POK 
E Zé125,X2Z:CALL Zéi17:60T0 11686 


C1 Rappel de IMAGE3 vers IMAGE! pour nettoyer l’écran. 


[1 Acquisition de la couleur, et coordonnées du grand rectangle avec 
test de validité des réponses et effacement des réponses erronées (la 
couleur peut varier entre O et 255 ; les abscisses entre 0 et 39 ; les 
ordonnées entre 0 et 24). 


[] Rappel de IMAGE3 vers IMAGE. Ecriture des valeurs dans les 
mémoires de notre programme en langage machine. Appel du sous- 
programme. Retour en 1100. 


RECOPIE D’UNE IMAGE DANS IMAGE1 


Touche d’appel R comme Recopie. 


214464 GOSUB 64418: GOÛTO 1166G 
C] Transfert d'IMAGE2 vers IMAGE! et retour en 1100. 


AIDE A L'UTILISATEUR POUR LES COULEURS 


Touche d’appel X comme eXplications. 


22664 GOSUE 2 CLS:FRINT "G NOIR 
7 VERT 15 VERT VIF 1 ELEU 
14 TURGUOISE 19 MERT MARIN 2 BLEU VIF 
1i BLEU CIEL 24 TURQUOI VIFS ROUGE 
12 JAUNE Zi VERT CITRONS MAGENTÉ 
13 ELANC ZZ VERT FASTEL"; 
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22414 PRINT "5 MAUVE 14 BLEU PAST 
TURGU PAST & ROUGE VIF 15 CRANGE 
JAUNE VIF 7 POURPRE 1é ROSE 

JAUNE PAST © MAGEN VIF 17 MAGEN FAST 
ELAHC BRILL" 

EEUZ8 PRINT "INITIAL 1-24-16-8":PRINT:PE 
INT "ACTUEL "316@311:12:123;" BORDURE :'"3E 
Z2038 WHILE INKEYTS="":UEND:GOSUE é464û:6G 
OTO 116& 


Fü FO Fi 


CG CN E to 


[] Transfert IMAGE1 vers IMAGE. 
Cl Nettoyage écran. 


[1 Affichage des différentes couleurs disponibles. 








_] Rappel des couleurs initiales et affichage des couleurs actuellement 
utilisées. 


[1 Boucle d’attente pour permettre la lecture. 
[1 Rappel IMAGE3 vers IMAGE. 
CT Retour en 1000 puisque l’on a utilisé un CLS. 





COPIE D’UNE IMAGE DANS IMAGE2 


Touche d’appel C comme Copie. 


5464 GOSUE 6460464: GOTO 114 


Transfert d'IMAGE1 vers IMAGEZ et retour en 1100. 


TRACER UNE FIGURE 


Touche d’appel F comme Figure. 
24444 GOSUE 4436: LOCATE 16,£Z:FRINT "FI 


GURE" :LOCATE 1,24:PRINT "RECTANGLE (1 
> TRIANGLE (2) CERCLE 49)" 
24416 ABSSINKEY#:IF A="" THEN Z4@1@ ELSE 


ÉSASCCAE) 
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24824 GOSUB 468046 :I1F 4<46 OR &>S1 THEN 1 
1AG:ELSE ON À-48 GOTO 24146,24266,243@6 


Nous proposons trois types de figures : rectangle, triangle, cercle ; 


nous commençons donc par l’affichage d’un menu. 


C1 Transfert IMAGEI1 vers IMAGE. 
C1 Affichage du menu. 


[] Boucle d’attente de la réponse de l’utilisateur, transfert de IMAGE3 
vers IMAGE, puis test de la validité de la réponse. Si la réponse 


n’est pas valable : retour en 1100. 
[] Aïguillage par un ON GOTO. 


Rectangle 
24186 LOCATE 1,Z4:PRINT "COULEUR = 


x1 = fi =":LOCATE 17,2S:PRINT "XS 
= 3 nn 

24116 LOCATE 11,24:INPUT "",P:IF Fé4 OR 
P:3 THEN LOCATE 11,24:PRINT E#$:GOTO 2411 
& 

24126 LOCATE 22,24:INPUT "",X1:LOCATE 3 
.24:INPUT "",Y1:LOCATE 22,25 Arte Pise 









:LOCATE 33,25 
£41354 GAME, 
all £ ‘ 


Vis 





1IMHPLT "M" ,#Z: GOSUE 6 4 4 à 
#1 ,2#" 1: DFA 2#Tl PFiDR 


CORAIL Las CRALI Lai 





&G Fi 


Cl] Acquisition du numéro d’encre et des coordonnées du sommet 


inférieur gauche et supérieur droit avec test de la valeur de l’encre. 


Tracé du rectangle et retour en 1100. 
Triangle 
£L4264 GOSUE #1: 


24216 M 


" 
Alt ZEKS, Lez: DR 


C 

m: 
‘li 

* 


41 4 
ZsvYi:CRAM 2#KX2,2#T2,P:DR 
WU ZxK1 ,2e vi: GOTO Ïié 





2,172: 


[1 Appel du sous-programme qui permet de faire l’acquisition des 


coordonnées des trois sommets et du numéro d’encre avec test de la 
validité de l’encre. 





[1 Tracé du triangle et retour en 1100. 


Cercle 


243544 GOSUE él 264: ORIGIN LKCEC4+T TER Ex 
NYC:FOR 1=6 TO ZEFIt+tiifRi STEF 1/FR:DRäld Z 
.ZERECOSCII-L.LER  LERESINIIS FINEST : ORIG 


Itj 6,4: GOTO 11864 








[] Appel du sous-programme qui permet l’acquisition des coordonnées 
du centre du cercle, de son rayon et du numéro d’encre. 





[] Tracé du cercle à l’aide d’une boucle qui affiche le point de 
coordonnées X = RxCOS et Y = RxSIN et retour en 1100. 


C] Transfert IMAGE vers IMAGE. 


Suivant la version de CREIMAGE utilisée, vous avez à votre 
disposition l’une des trois possibilités suivantes : juxtaposition d'images, 
symétrique d’une image (image vue dans un miroir), permutation de 
couleurs. Ces trois fonctions ne sont pas disponibles en même temps, 
car l’espace mémoire de l’ Amstrad est insuffisant ; d’autre part ces 
fonctions sont utilisées peu fréquemment et n’ont pas besoin de 
coexister. Nous allons décrire les trois programmes correspondants qui 
utilisent les mêmes numéros d’instructions et qui seront donc introduits 
dans trois versions de CREIMAGE différentes. 


JUXTAPOSITION D'IMAGES 


Touche d’appel J comme Juxtaposition. 


Comme nous aurons à charger une image supplémentaire, nous 
aurons besoin de déplacer le HIMEM, ce qui conduit à une version 
CPC 464 et une version CPC 6128. 
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Programme pour CPC 464 






£S464 GC UT "Ildé 
GE À SUPER 8: GOSUÉ à : GOSUE 
SAUT: LOAD ÉE:GOSUE é64S4: GOSUE éG6 24: GO 
SUE éH4Bé 


25169 FOR K=9726 TO Z26147:1F PEEKCKI=ù 
HEN 25149 ELSE A#$=BINS(PEEK(K+37426) ,8) : 
E=EBINE(PEEKCKI ,82 

25119 ARESRIGHTS( AS, 1) :BUSSRIGHTSCES, 12: 
AAF=MIDECAE, 9,12: EAESMIDELES, 4 ,1):1F EU# 
ci"a" OR B4#<;"6" THEN MG#=BÜs:49%=Ed# 
25120 Al4=MIDSCAE, 7,1): B18=MIDECES,7,13: 
ASE=MIDECAS,3,1):BS#=MIDÉCES,3,1):1F El 
cg" OR BS<"a" THEN Al#=E1#: 45425 
25186 AZE=MIDÉCAS, 6,1) :B2E=MIDÉ(BS ,é, 1): 
ASE=MIDEL AS, 2,10: BéEMIDECES, 2 1):IF EZ$ 
L>"G" OR Bésé)"u" THEN A28=B2$ :A6#=Bé# 
25140 ASt=MIDEC AS ,S,1):RIS=MIDSCES, 5,10 : 
A7#=MIDSCAE,1,13:E7#=MIDSCBS,1,1):1F 34 
{"@" OR B78<>"6" THEN AS4=B38:474=878 
25159 POKE K+37426,128#VALCA7#) +64#VAL (A 
SE) + FE AVAL CAE +1 RUAL CAE) + BEVALEÉAIE) +4 
AVAL CALE D + ZHUAL CALE +UAL CADE) 

2S1éû NEXT:GOTO 1198 


À 


Programme pour CPC 6128 


25066 GOSUB 60438:LOCATE 1,2S:INPUT "IMA 
GE À SUPERPOSER :",A%:GOSUB 60640 :MEMORY 
16384:LOAD A$:MEMORY 9724:GO0OSUB éa82û 
25100 FOR K=9726 TO 261@9:1F PEEK(K)=0 T 
HEN 25169 ELSE A$=BIN#(PEEK(K+39426) ,8): 

BH=BINS(PEEK(K) ,8) 

25118 AGS=RIGHTÉCAS, 1) : BOS=RIGHTSCBS, 1): 
A4S=MIDS (AS ,4,1):B4#$=MIDS(B#,4,1):IF BG$ 
{>"G" OR B4$<)>"6" THEN AG$=B69 :44$=E4% 
25120 A1$=MID$S(AS,7,1):B1$=MIDS(B$,7,1): 
AS$=MIDS(AS,3,1): BSS=MIDS(BS,3,1:1F B1$ 
(>"G" OR B5$C)"G" THEN A1$=B14:45%=B5$ 
25136 A2$=MIDH(AS,6,1):B2#=MID#(B# 6,1): 
A6F=MIDS(A$,2,1):B6$=MIDS(ES,2,1):IF B2$ 
<)>"G" OR Bé$<>"G" THEN A2$=B2$ :46$=Bé$ 
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25148 A3#=MIDS(AS,5,1):B3$-MIDS(B$,5,1): 
A7H=MIDS(A$,1,1):B7$=MIDSCES,1,1):1F B3$ 
{>"6" OR B7#$<>"9" THEN 43%=B3$:475=B7% 
25154 POKE K+39426,128*VAL(A78)+64xVAL(A 
65) +324VAL(A5$) +1 6kUAL (A4) +8*xVAL(A3S) +4 
*VAL A2) +2#VALCA1$) +VAL(AGSE) 

25168 NEXT:GOTO 1100 


Le principe de la juxtaposition est le suivant : IMAGE! est l’image 
sur laquelle on va effectuer la juxtaposition et IMAGE] l’image que 
l’on va juxtaposer. Si un point de IMAGE) est de l’encre 0, on gardera 
pour ce point l’encre de IMAGE, par contre si ce n’est pas l’encre 0, 
on adoptera l’encre de IMAGE] (habituellement l’encre 0 constitue le 
fond de l’image à juxtaposer). 

Traduisons maintenant cette juxtaposition au niveau des octets consti- 
tuant l’image. Rappelons qu’un octet correspond à quatre points succes- 
sifs (ou pixels si vous préférez), l’encre de chaque point est déterminée 
par un couple de bits de cet octet : le premier point correspond aux 
bits O et 4, le deuxième aux bits 1 et 5, le troisième aux bits 2 et 6, 
le quatrième aux bits 3 et 7. Pour une série de quatre points successifs 
de l’image, on a donc en présence un octet correspondant à IMAGEI 
dont nous appelons les bits : AO, A1, A2, A3, A4, A5, A6, A7 et un 
octet correspondant à IMAGEJ dont nous appelons les bits : BO, B1, 
B2, B3, B4, BS, B6, B7. Si BO et B4 sont nuls, le premier point de 
IMAGE)J est de l’encre 0, nous gardons alors AO et A4 ; par contre, 
si BO ou B4 ou les deux ne sont pas nuls, nous remplaçons AO par 
BO et A4 par B4. Même raisonnement pour les couples (A1,A5), 
(A2,A6) et (A3,A7). Passons au programme qui est la traduction exacte 
de ce que nous venons d’exposer : 


C1 Transfert IMAGEI1 vers IMAGE3. 
CT Demande du nom de fichier de l’image à juxtaposer. 
CT Rappel de IMAGE3 vers IMAGE. 


[1 Cette image est obligatoirement une image normale et pas une 
image compressée ; on la charge de la même manière qu’une image 
normale, mais on la transfère en IMAGE3 au lieu de IMAGE, puis 
on transfère IMAGE1 vers IMAGE, ce qui protège l’image obtenue 
avant juxtaposition et permettra d’utiliser la fonction R(ecopie) si l’on 
n'est pas satisfait du résultat. 


C] Boucle pour comparer les octets de IMAGE et IMAGE3. Si un 
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octet de IMAGE3 est nul, il n’y a rien à juxtaposer, ce n’est pas la 
peine de faire de test et on passe à l’octet suivant (cela accélère la 
juxtaposition). 


C] On transforme la valeur lue dans les mémoires en nombre écrit 
en binaire dans une variable alphanumérique. 


[] On effectue les comparaisons décrites précédemment pour décider 
quels bits formeront IMAGE. 


[] On écrit finalement la valeur retenue pour l’octet de IMAGEI 
après avoir calculé sa valeur en système décimal. Retour en 1100. 


Remarque 


Ce programme de juxtaposition est en BASIC ; il est donc assez 
lent (environ 5 à 10 minutes suivant la complexité de l’image à 
juxtaposer), nous n’en avons pas fait une version en langage machine, 
car il est assez peu utilisé. 


SYMETRIQUE D'IMAGE 
Touche d’appel J. 


27616 PRINT "<P}> : POSITION DU PFOINT'":PR 
INT "<M> : MOUVEMEMT DU POINT"':PRINT "<B 
> : COULEUR BORDURE'":PRINT "<J} : IMAGE 
SYMETRIQUE":PRINT "<I> : COULEUR DES ENC 
RES":PRINT "<X}> : CODES DES ENCRES" 


25008 GOSUB 64688:CLS:CALL 26118:4=49152 
-86 :C=26283 

25018 FOR 1=0 TO 7:4=A+1*2048:C=C+1*x26048 
25028 FOR J=0 TO 24:4=A4+80 :C=C+80 

25636 FOR K=6 TO 79 

25180 A$=BINSCPEEK(C-K) ,8) 

25116 AB$S=RIGHTSCAS, 1) :44$=MIDSCAS ,4,1) 
25120 A1$=-MIDS(A$,7,1) :A5S#$=MID#(A$,3,1) 
25138 A2$=MIDS(AS,6,1) :46S=MIDS (AS ,2,1) 
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25140 A3S=MIDS(AS,S,1) :A7S=MIDSCAS,1,1) 
25156 POKE À+tK,128x*xVAL(A4#) +64x0VAL(A5$) + 
B2*kVAL(A 6H) +1 6XVALCA 7H) +8xVALCABSH) +4xUAL 
AIS) +2XVALCA 28) FUALCASE) 

25160 NEXT:NEXT :4=49152-80 : C=26283:NEXT : 
GOTO 1164 


Nous effectuons une symétrie du type image vue dans un miroir. 


C1 Transfert de IMAGE1 vers IMAGE2, c’est IMAGE2 qui sera la 
source pour réaliser notre image symétrique. Nettoyage écran, remise 
à zéro du scrolling. 


[] Rappelons que les lignes écran sont écrites par paquets de 25, 
chaque ligne comporte 80 octets, et entre chaque paquet de 25 il y a 
48 octets inutilisés. La symétrie va consister en une permutation des 
octets dans une ligne : l’octet 0 devient l’octet 79, l’octet 1 devient 
le 78, …, l’octet 78 le 1, l’octet 79 le 0. A l’intérieur de l’octet, le 
bit O0 devient le bit 3, le bit 4 le 7, le bit 1 le 2, le bit 5 le 6, le bit 2 
le 1, le bit 6 le 5, le bit 3 le O et le bit 7 le 4. Nous effectuons cette 
opération par une triple boucle pour faire le travail sur les octets d’une 
ligne, sur un paquet de lignes, sur l’ensemble des paquets. 


C1] Permutation dans l’octet, reconstitution de l’octet, écriture de l’octet 
dans IMAGE! à l’endroit adéquat. 


C1 Retour en 1100. 


PERMUTATION DE COULEURS 
Touche d’appel J. 


29614 PRINT "éP}> : POSITION DU POINT"':PR 
INT "<M> : MOUVEMEMT DU POINT":PRINT "<B 
> : COULEUR BORDURE'":PRINT "<J> : PERMUT 
ATION D'ENCRES'":PRINT "<I> : COULEUR DES 
ENCRES'":PRINT "<X} : CODES DES ENCRES" 


mon 


25099 13=PEEK(65531) :11=PEEK( 45533) :POKE 
65533,13:POKE 65531,11:INK 1,11:INK 3,1 
3:GOSUB 600080:FOR K=26204 TO 42587:A$=BI 
N$CPEEKCK) ,8) 
25010 AGS=RIGHTS (AS ,1) :44$=MIDH(AS, 4,1): 
IF A8$="0" AND A4$="1" THEN AQ#$="1":ELSE 
IF Ag$="1" AND A4$="1" THEN 4@$="0@" 
25020 A1$=MIDS(A$,7,1) :45#$=MIDS(AS,3, 1): 
IF 4i$="0" AND A5$="1" THEN 41$="1":ELSE 
IF Ai$="1" AND AS5$="1" THEN A1$="0" 
25030 A2#=MIDSCAS ,6,1) :A6#=MID#(AS,2,1): 
IF A2$="0" AND Aé$="1" THEN A2$="1":ELSE 
IF A2$="1" AND Aé$="1" THEN A2$="0" 
25049 A3$=MIDS(AS,5,1) :A7#=MID#(AS, 1,1): 
IF A3$="0" AND A7$="1" THEN 43$="1":ELSE 
IF A3$="1" AND A7$="1" THEN A3$="0" 
25058 POKE K+22948,128x*VAL(A7$)+64*xVAL(A 
68) +32*VAL(A5$) +1 6XVAL(A4$) +BXVAL(A3S) +4 
#VAL CA2$) +2#VAL(A1#)+VAL (ARS) 
25168 NEXT:GOTO 1198 


Il peut arriver qu'après avoir fait une image vous désiriez permuter 
les couleurs associées à deux encres sans changer l’image de couleur. 
Nous allons réaliser un programme qui effectue cette fonction en 
prenant pour exemple la permutation de l’encre n° 1 et l’encre n°3. 
Au niveau des octets qui composent l’image, les couples de bits (0,1) 
qui définissent l’encre n° 1 deviendront des couples (1,1) ; les couples 
(1,1) qui définissent l’encre 3 deviendront des couples (0,1) qui définis- 
sent l’encre 1. 


[1 On commence par permuter les valeurs qui ont été attribuées aux 


variables I1 et 13, et on inscrit ces nouvelles valeurs aux adresses 
65531 et 65533. 


C1 Transfert de IMAGE vers IMAGE, c’est IMAGEZ2 qui sera notre 
source de données pour réaliser l’image. 


[1 On prélève ensuite chaque octet de l’image, on le met sous forme 
binaire dans une variable alphanumérique et on l’analyse pour déterminer 
les modifications à lui faire subir. 


[1 On effectue l’analyse et la transformation éventuelle des couples 
décrites ci-dessus. 
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C1 On écrit enfin le nouvel octet dans ECRANI, après l’avoir recons- 
titué. Retour en 1100. 


NETTOYAGE ECRAN 


Touche d’appel N comme Nettoyage. 


26864 GOÜSUE é44S6:LOCATE 1,Z4:FPRINT "CON 
FIEMER LE NETTOYAGE ECRAN OUT /HONS" 
ZéG14 AS=INRETESIF AE="" THEN 24416@:ELSE 

IF UPPER AEI="O" THEN CLS: GOTO 1444:EL 
SE GOSUR 686464: GOTO 1444 


C] Transfert IMAGE vers IMAGE3. 


[] Le nettoyage de l'écran étant une action presque irréversible 
(presque, car l’on peut récupérer IMAGE2 ou IMAGE3), nous envoyons 
un message de demande de confirmation. 


[] Boucle d’attente sur la frappe d’une touche. 





[] Si la réponse est O pour OUI, on nettoie l’écran, et on retourne 
en 1000 pour réinscrire les couleurs, car le CLS remet à zéro toutes 
les mémoires de la zone écran, y compris celles où nous inscrivons 
les couleurs choisies. 


C] Pour toute autre réponse, nous n’effectuons pas le nettoyage écran. 
C] Transfert IMAGE3 vers IMAGEI. 
[] Retour en 1100. 


CATALOGUE DE LA DISQUETTE 
Touche d’appel T comme Table des matières. 
27084 GOSUB 6604034 :CLS:LOCATE 1,1:1DIR 


27616 WHILE INKEY#$="":WEND :GOSUB 66646:6G 
OCTO 188@ 


C1 Transfert IMAGEL vers IMAGE. 


[] Nettoyage de l’écran. 
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[] Appel du catalogue disquette à l’aide de l’ordre adéquat de 
l AMSDOS. 


[] Boucle d’attente pour laisser l’utilisateur en prendre connaissance. 
[] Rappel IMAGE3 vers IMAGEI. 


C1 Retour en 1000 pour réinscrire les couleurs qui ont été effacées 
par l’ordre CLS. 


ANNULATION D'UN FICHIER SUR LA DISQUETTE 


Touche d’appel A comme Annulation. 


280409 GOSUB 60638 :LOCÂTE 1,23:INPUT "ANN 

ULATION DU FICHIER :",B#$:PRINT "CONFIRME 

R L'ANNULATION DE ";B#:PRINT "<OUI/NON) " 

28016 AF=INKEYS:IF A$="" THEN 28018:ELSE 
IF UPPER$S(A$S)="0" THEN IERÂ, àB$ 

28020 GOSUB 660648 :GO0OT0 1160 


[] Transfert IMAGEI vers IMAGE3. 
CT Message pour demander le nom du fichier à annuler. 


[] Lorsque le nom a été donné, on envoie un message de demande 
de confirmation, car une annulation de fichier est irréversible. 


[] Boucle d’attente de la réponse. 


[] Si la réponse est O, on effectue l’annulation à l’aide de l’ordre 
adéquat de lAMSDOS. 


[1 Quelle que soit la réponse, on rappelle IMAGE3 dans IMAGE. 
CT Retour en 1100. 


AIDE A L'UTILISATEUR 


Touche d’appel E comme Explications. 


27006 GOSUE éGGS4iCLS:PRINT "éSr : SAUVE 
GARDE IMAGEI":PRINT "éL> : CHARGE IMAGE! 
MiIPRINT "éC : COPIE IMAGEI > IMAGEZ'":PR 
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INT "éR> : COPIE IMAGEZ > IMAGE" :PRINT 
"éN> : NETTOYAGE IMAGEIL":PRINT "£T> : Ca 
TALOGUE":PRINT "<> : ANNULATION FICHIER 


276018 PRINT "<éP5 : POSITION OGÙ POINT':PR 
INT "éM> : MOUVEMEMT OÙ POINT':PRINT "<E 
COULEUR GBORDURE":PRINT "EJi : JUXTAF 
OSITION D'IMAGES'":PRINT "£&I% : COULEUR G 
ES ENCRES":PRINT "Xi : CODES DES ENCRES 
£FG£G PRINT "éDi : DROITE COORD 4ESD':FP 
RINT "<Y> : DROITE (COORD RELAT)'":PRINT 
MéF 3 FIGURE'":PRINT "é£ÿ : ZONE':PRINT: 
PRINT "<95,<17,422,<9> 2 STYLOS'":PRINT:P 
RINT "FLECHES : DEPLACEMENT" 
27186 LWMILE INKEY#="":UEND:GOSUE 44848 :G 
OTO 1664 


Transfert IMAGE1 vers IMAGE3. 
Nettoyage écran. 


Impression des différentes fonctions de CREIMAGE. 


Boucle d’attente pour permettre la lecture. 
Rappel IMAGE3 vers IMAGEI. 
Retour en 1000 puisque l’on a utilisé un CLS. 


El CL ET l'O 


Pour finir, il ne vous reste plus qu’à introduire sur vos disquettes 
les trois CREIMAGE correspondant à votre type d’Amstrad. Sur la 
disquette que vous pouvez acheter avec le livre, les noms sont les 
suivants : 


CREI464 CREI6128 CREIMAGE avec juxtaposition 
CRES464 CRES6128 CREIMAGE avec symétrie 
CREP464 CREP6128 CREIMAGE avec permutation 


Quelques conseils d'utilisation 


[1 Faites vos dessins sur une feuille de papier. Relevez les principales 
coordonnées. Recopiez le dessin sur une feuille transparente que vous 
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placerez sur l’écran à l’aide de papier adhésif. 


C1 Commencez par réaliser les zones en couleurs alternées. Si la 
zone n’est pas un rectangle, vous pourrez ensuite la modifier en dessinant 
d’autres zones qui viendront mordre dessus. 


CT Faites très souvent des copies dans IMAGE : c’est votre protection 
contre les erreurs de dessin (utilisation équivalente d’une gomme). 


[1 Pour déterminer les coordonnées d’un point, faites une copie dans 
IMAGE, déplacez le curseur à l’aide de la fonction D(éplacement) 
puis avec les touches <-, ->, ” et\,, et relevez la position avec la 
fonction P(osition), et terminez avec une recopie dans IMAGE pour 
effacer la trace du curseur. 


[1 Faites souvent des sauvegardes en image compressée. 


Cl] En cas de destruction d'image totale ou partielle, n'oubliez pas 
que IMAGE3 est disponible et récupérable si l’on n'a pas appelé de 
fonction. Donc pas de précipitation et d’action intempestive : essayez 
de recopier IMAGE2 avec R(ecopie) car cette fonction n’altère pas 
IMAGE3, si IMAGEZ2 n'est pas bonne, faites ESC pour sortir du 
programme, puis CALL 26110:GOSUB 60040:GOT01000. 


CT N'oubliez pas que si vous voulez faire apparaître du texte dans 
une image, avec une fenêtre par exemple, le texte s’écrira avec l’encre 1 
sur fond d’encre 0. Attention donc à ne pas choisir les encres 1 et 0 
toutes les deux foncées ou toutes les deux claires. 
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15. LES IMAGES DU JEU D’AVENTURE 


Maintenant que vous avez tout compris ou presque sur le fonctionne- 
ment de CREIMAGE, nous pouvons passer à la réalisation des images 
pour notre jeu d’aventure, ainsi qu’à l’implantation des ordres adéquats 
pour faire apparaître ces images. 

Chacun des lieux utilisés par le jeu d’aventure est caractérisé par 
une valeur de la variable C. On prend pour règle d’appeler l’image 
correspondante CIM + le numéro du lieu. Ainsi le boudoir de la reine 
est le lieu 19, l’image s’appellera CIM109. 

Certaines images sont multiples en fonction des actions qui ont été 
faites par le joueur (dans le cas d’image double, la deuxième se verra 
ajouter un suffixe P). En voici la liste : 


La 
La 
La 
La 
La 
La 
La 
La 


chambre de d’Artagnan. 


chambre de d’Artagnan 
chambre de d’Artagnan 
chambre de d’Artagnan 
chambre de d’Artagnan 
chambre de d’Artagnan 
chambre de d’Artagnan 
chambre de d’Artagnan 


Les écuries sans Bonami. 


Les écuries sans Flambeau. 


Les écuries sans Laflèche. 


Les écuries sans Mirandole. 


sans épée. 

tiroir ouvert. 

sans épée, tiroir ouvert. 
armoire ouverte. 

sans épée, armoire ouverte. 
coffre ouvert. 

sans épée, coffre ouvert. 


Lä chambre de la maison de la veuve. 

Les gardes du cardinal dans l’estaminet. 

Athos, Porthos et Aramis dans l’estaminet. 

Athos, Porthos, Aramis et le patron dans l’estaminet. 
La campagne française sans fleurs. 

Le port de Calais avec le capitaine. 

Le port de Douvres avec le capitaine. 

Le champ en Angleterre sans fleurs. 

La rue de Londres sans fleurs. 

La secrétaire de Buckingham souriante. 

La secrétaire de Buckingham déçue. 

La cour de Buckingham après changement de cheval. 


— 184 - 


Enfin les images suivantes ne correspondent à aucune valeur de la 
variable C : 


L'image de présentation. 

Les soins lorsque l’on est blessé. 
La mer. 

L’image si l’on a perdu. 
L’image si l’on a gagné. 


Nous obtenons alors la table suivante de correspondance entre les 
lieux et les noms d’images : 


Image de présentation CIMO 
Rue de Trousse Chemise CIMI 
Devant la maison de la veuve CIM2 
Devant le boudoir de la reine CIM3 
Devant la bibliothèque du duc CIM4 
Devant les écuries CIMS 
Devant la maison de l’usurier CIM6 
Devant l’estaminet CIM7 
Devant les cuisines CIM8 
Devant la salle des gardes CIM9 
Devant le restaurant CIM10 
Devant les douanes CIMI1 
Devant la grange CIMI2 
Devant la librairie CIM13 
Devant le secrétariat CIMI14 
Devant la cour de Versailles CIMIS 
Devant la cour de Buckingham CIMI16 
Dans la chambre de d’Artagnan CIM1700 
Chambre de d’Artagnan sans épée CIM1710 
Chambre de d’Artagnan tiroir ouvert CIM1701 
Chambre de d’Artagnan sans épée, tiroir ouvert CIM1711 
Chambre de d’Artagnan armoire ouverte CIM1702 
Chambre de d’Artagnan sans épée, armoire ouverte CIM1712 
Chambre de d’Artagnan coffre ouvert CIM1703 
Chambre de d’Artagnan sans épée, coffre ouvert CIM1713 
Dans la maison de la veuve CIM18 
Chambre de la maison de la veuve CIM18P 
Le boudoir de la reine CIM19 
Dans la bibliothèque du duc CIM20 
Dans les écuries CIM21 
Ecuries sans Bonami CCHI 
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Ecuries sans Flambeau 

Ecuries sans Laflèche 

Ecuries sans Mirandole 

Chez l’usurier 

Dans l’estaminet 

Les gardes du cardinal dans l’estaminet 
Athos, Porthos et Aramis dans l’estaminet 
Athos, Porthos, Aramis et le patron dans l’estaminet 
Dans les cuisines 

Dans la salle des gardes 

Dans le restaurant 

Dans les douanes 

Dans la grange 

Dans la librairie 

Dans le secrétariat du duc 

La secrétaire de Buckingham souriante 
La secrétaire de Buckingham déçue 
Dans la cour de Versailles 

Dans la cour de Buckingham 

La cour de Buckingham après changement de cheval 
La campagne française 

La campagne française sans fleurs 

Le port de Calais 

Le port de Calais avec le capitaine 

Le port de Douvres 

Le port de Douvres avec le capitaine 
Le champ en Angleterre 

Le champ en Angleterre sans fleurs 
Rue de Londres 

La rue de Londres sans fleurs 

Le relais de la Jument bleue 

Les soins lorsque l’on est blessé 

La mer 

Image si l’on a perdu 

Image si l’on a gagné 


CCH2 
CCH3 
CCH4 
CIM22 
CIM23 
CIM23G 
CIM23D 
CIM23DP 
CIM24 
CIM25 
CIM26 
CIM27 
CIM28 
CIM29 
CIM30 
CIM30F 
CIM30P 
CIM31 
CIM32 
CIM32P 
CIM33 
CIM33P 
CIM34 
CIM34P 
CIM35 
CIM35P 
CIM36 
CIM36P 
CIM37 
CIM37P 
CIM38 
CIMSOIN 
CIMMER 
CIMPRIS 
CIM39 


D'autre part, notre jeu avec ses images va occuper quatre faces de 
disquette. Voici la répartition des images par face de disquette pour 
obtenir le moins de changements de disquette en cours de jeu : 
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FACE 1 FACE2 FACE 3 FACE 4 


CIMO CIMI1 CIM2 CIM4 
CIMS CIM3 CIM10 
CIM6 CIMB8 CIMI1 
CIM7 CIM9 CIM12 
CIM170 CIM15 CIM13 
CIM171 CIM18 CIM14 
CIM172 CIM18F CIM16 
CIM173 CIM19 CIM20 
CIM174 CIM24 CIM26 
CIM175 CIM25 CIM27 
CIM176 CIM31 CIM28 
CIM21 CIM33 CIM29 
CCHI CIM33P CIM30 
CCH2 CIM34 CIM30P 
CCH3 CIM34P CIM30F 
CCH4 CIM38 CIM32 
CIM22 CIMSOIN CIM35 
CIM23 CIMPRIS CIM35P 
CIM23G CIMMER CIM36 
CIM23D CIM39 CIM36 
CIM23DP CIM37 
CIMSOIN CIM37P 
CIMPRIS CIMPRIS 

CIMMER 


Nous verrons plus loin que nous installerons un test dans le pro- 
gramme qui vérifiera avant chargement d’une image que la bonne 
disquette est bien dans le lecteur de disquette ; de plus, au changement 
de disquette le test permettra aussi d’afficher quelle disquette doit être 
introduite. 

Nous vous donnons en annexe les différentes images que nous avons 
réalisées, ainsi que les couleurs associées aux quatre encres et à la 
bordure. 


Passons maintenant aux morceaux du programme qui sont spécifiques 
du chargement des images. 

En tête de programme nous avons bien sûr le positionnement du 
HIMEM en 34380, le chargement de la remise à zéro du scrolling entre 
34381 et 34387, puis le chargement du décompresseur entre 42588 et 
42619. Ces opérations sont faites dans le programme DEBUT, car le 
fait de charger un autre programme par LOAD ou RUN ou CHAIN 
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ou MERGE ne change pas le HIMEM, et ne remet pas à zéro les 
mémoires situées au-dessus du HIMEM. 


Ligne 1000 


Nous installons un GOSUB 64000 et c’est là que nous traiterons le 
chargement des images. 


640008 IMS=STRE(CC) : IMHS="CIM+RIGHTSCIME ,L 
ENCIM#)-10 


64818 IF C=17 THEN IMS=IMS#+RIGHTSCSTRS(C 
19%) ,1)+RIGHTB(STRE(CA/+2#C6/2+3KC8%) , 1: 
ELSE 1F C=21 AND C11%<>8 THEN R$=STR$(CI 
122) :IM$="CCH"+RIGHTSCRS , LENCRS) —1 ) 
64028 IF (C=32 AND Ci1%=6) OR ((C=34 OR 
C=35) AND C35#=1) OR (C=33 AND C36/=1) 0 
R (C=36 AND C36%/=2) OR (C=37 AND C36/=3) 
THEN IM$=IM#+"p" 
641604 LOAD "D":I1=PEEK(45529) 
64118 IF (C=1 OR C=5 OR C=é OR C=7 OR C= 
17 OR C=21 OR C=22 OR C=23) AND 1<>2 THE 
N I=2:GOT0 6440@:ELSE IF (C=2 OR C=3 OR 
C=8 OR C=9 OR C=15 OR C=18 OR C=19 OR C= 
24 OR C=31 OR C=33 OR C=34 OR C=38) AND 
1433 THEN 1=3:GOT0 6448 
64138 IF (C=4 OR C=18 OR C=11 OR C=12 OR 
C=12 OR C=14 OR C=ié OR C=28 OR C=26 OR 
C=27 OR C=28 OR C=29 OR C=38 OR C=32 OR 
C=35 OR C=36 OR C=37) AND 1<>4 THEN 1=4 
:GOTO 64490:ELSE LOAD IM$ 
642604 INK G,G:INK 1,G:INK 2,8:INK 3,6:Cû 
LL 34381:CALL 425897:INK 8 ,PEEK(65536):IN 
K 1,PEEK(éS531):INK 2,PEEK(65532) :INK 3, 
PEEK(65533) : BORDER PEEK(45529) :WINDOW £ü 
,1,48,22,2S:CLS:RETURN 
64468 CLS:PRINT "METTEZ LA FACE :"31:WHI 
LE INKEY$="":WEND:CLS:GOTO 64184 
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Ligne 64000 


Nous effectuons la concaténation du mot CIM avec le numéro du 
lieu qui est donné par la variable C, pour obtenir le nom de l’image 
à charger ; ce nom est dans la variable IM$. 


Ligne 64010 


Nous traitons d’abord dans cette instruction le cas de la chambre 
de d’Artagnan : toutes les images correspondant à ce lieu commencent 
par le radical CIM17 car C = 17 ; nous calculons le suffixe en fonction 
des conditions : avoir ouvert le tiroir, avoir ouvert l’armoire, avoir 
ouvert le coffre et avoir l’épée. Nous effectuons ensuite la concaténation 
avec IM$. Lorsque le joueur prend la cape dans l’armoire après l’avoir 
ouverte, la variable correspondant à la condition armoire ouverte est 
remise à zéro pour revenir à la position armoire fermée ; on revient 
alors à l’image armoire fermée. De même pour le coffre et pour le 
tiroir. Puis nous traitons le cas de l’écurie : à partir du moment où le 
joueur a pris un cheval le radical de l’image est CCH, le numéro du 
cheval est contenu dans la variable C11 %, on effectue la concaténation 
de CCH avec la valeur de C11 %. 


Ligne 64020 


Nous traitons dans cette instruction la plupart des lieux qui ont 
deux images en fonction d’une condition, dans ce cas la deuxième 
image, celle qui dépend de la condition, se voit ajouter le suffixe P 
par concaténation : 


C= 32 Cour de Buckingham, C11%=6 avoir changé de cheval. 
C=34 Port de Calais, C35 % = 1 avoir appelé le capitaine. 
C=35 Port de Douvres, C35 % = 1 avoir appelé le capitaine. 
C=33 Campagne anglaise, C36 % = 1 avoir cueilli les fleurs. 
C =36 Champ français, C36 % = 2 avoir cueilli les fleurs. 
C=37 Rue de Londres, C36 % = 3 avoir acheté les fleurs. 


Ligne 64100 


Test de la disquette : nous installerons sur chaque disquette un fichier 
binaire correspondant à la mémoire d’adresse 65529 dont le nom sera 
D et dans lequel nous inscrirons le numéro de la disquette. Nous 
chargeons ici ce fichier, après chargement nous avons donc dans la 
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mémoire 65529, le numéro de la disquette que nous copions dans la 
variable I. 


Lignes 64110 à 64130 


Nous avons ici la table de correspondance entre les numéros de 
faces de disquette et les numéros des lieux ; si la variable I ne vérifie 
pas la correspondance, nous mettons le numéro de la disquette nécessaire 
dans la variable I et nous effectuons un saut à l’instruction 64400 ; 
s’il y a correspondance, nous chargeons l’image. 


Ligne 64200 


On met toutes les encres à la couleur noire pour effacer l’écran 
pendant les manipulations sans perdre l’image. On appelle la remise 
à zéro du scrolling puis le décompresseur, on positionne les différentes 
encres, on établit la fenêtre pour les messages et on nettoie cette 
fenêtre. Retour au point où le sous-programme a été appelé. 


Ligne 64400 


Affichage de la face de disquette demandée suivi d’une boucle 
d’attente pour permettre la lecture et le changement de disquette. 


Nous allons traiter maintenant les cas particuliers : 


C1 Chargement de CIMMER : en 1540 on trouve l'instruction qui 
traite l’embarquement et le passage en Angleterre, nous ajoutons 
IM$ = “CIMMER”’”’ et nous appelons le sous-programme de chargement 
d'image en 64100 puisque nous n’avons pas besoin de déterminer le 
nom de l’image. De même pour le passage en France, nous ajoutons 
IM$ = “CIMMER” dans l'instruction 1590. 


1548 C1Z3A=C1S%-366: PRINT "TOUT LE MONDE 
EMBARQUE, ON LEVE L'ANCRE ET... "2 IME="CI 
MMER":GOSUE é4164:GOSUR 454464 


274 CiSASCISA-SU: PRINT MEVERYEODY IS OH 
ECARD AD, .,. "1 IME="CIMMER" : GOÛOSUE 44164: 
GOSUE 45444: 0=zs4: CSA]: CIS AS=R:CZéA=A 
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Cl Traitement de l’estaminet : dans ce lieu il y a quatre images ; 
nous traitons les trois images supplémentaires en 9530, 9550 et 12040. 
Dans chacune de ces instructions nous ajoutons l’ordre correspondant 
à l’image adéquate : 


IM$ = “CIM23G” dans 9530 
IM$ = “CIM23D” dans 9550 
IM$ = “DIM23DP” dans 12040 


ordre que nous faisons suivre d’un GOSUB 64100 comme précédem- 
ment. 


FES IF NM=39 THEN IME="CIMESG":GOSUE 4 
14 de PRINT "CE SONT LES GARDES GÙU CARDIHA 
L.":PFRINT "ILS SONT NOMEREUX ET BIEN 4FM 
ES": GOTO 14 

FSSA IMé="CIM2SO":GOSUE éd144s PRINT "CE 

SONT ATHOS, FORTOS ET ARAMIS. "PRINT "4P 
RES EXPLICATIONS, "PRINT "ILS DCECIDENT D 
E MWOUS SUIURE":C1é#=1: GOTO 14 


12444 Iif="CIMZSOP":GOSUE 4144: PRINT "M 
OZ AMIS ONT EU FOUR S4 FISTOLES":C1 7x1: 
GOTCO if 


[1 Traitement du secrétariat du duc : dans ce lieu nous avons trois 
images que nous traitons de la même manière en complétant les 
instructions 6690 et 6700. 


IM$ = “CIM30P” dans 6690 
IM$ = “CIM30F” dans 6700 


ordre que nous faisons suivre d’un GOSUB 64100 comme précédem- 
ment. 
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Sérf IF Csék=i THEN IMS=IMS+"P":GOSUE 44 
1GG: PRINT "THEY'UE TURHED TO FADE,.'":PFRIMN 
T "SECRETARY 15 LVERY HURTED':GOTO i4 
F8 IF CSéfii THEN CSSési : IM£="CIMSAF" : 
GOÜSUE Sdi84:PRINT "GRATEFULL, SHE GIVES 
“OU 4 TENGER FECK. THE DUKE IS WéITING F 
OF YOUM:FRINT "IH HIS LIERARY":CSé <= 6 : GO 
TO i4 


[1 Traitement de l’écurie : lorsque l’on prend un cheval on ne repasse 
pas à l'instruction 1000, on traite donc le changement d’image au 
moment où l’on traite l’action prendre un cheval, il suffit d’ajouter 
dans l’instruction 4185 GOSUB 64000. 
ALES IF CIE THEN GOSUE 64864: PRINT " 
MOUS AVES ":NOBCNMi : GOTO 164 
[] Chez la veuve : même problème, si l’on embrasse la veuve on ne 
repasse pas en 1000 ; on modifie donc l’instruction 16510 qui traite 
le verbe embrasser en lui ajoutant : IM$ = “CIM18P” : GOSUB 64100. 
145184 IM&="CIMISP': GOSUE éSi144: PRINT "EL 
LE VOUS ENTRÉINE DANS SA CHAMBRE... ":PRI 
NT M"UOUS PASSEZ UNE FOLLE NUIT G'éMOUR., 
"PRINT ".. ,TROPF TARD !':GOTO S6uña 


[] On peut attaquer les gardes du cardinal dans deux lieux, on traite 
l’apparition de l’image CIMSOIN, de l’image CIMPRIS ou le retour 
dans l’entrée de l’estaminet, dans les instructions du verbe attaquer 
(6030 à 6070) en ajoutant : 


IM$ + “CIMPRIS” : GOSUB 64100 dans 6030 
GOSUB 64000 dans 6040 
GOSUB 64000 dans 6050 
IM$ = “CIMSOIN” : GOSUB 64100 dans 6060 
IM$ + “CIMPRIS” : GOSUB 64100 dans 6070 


F Ci44i51 THEN IM£="CIMPRIS" :GOSUE 
1H: PRINT MUOUS NÉAVUEZ PAS O'ARME ET 


& 


Cr. Gi 


f 
Î 


À 
4 


_ 
: à 


en 


= 492: 


5 VOUS FONT ARRETER...":GO0OTO 564464 

48 GOSUE SdG46: PRIMT "GRACE À VOTRE EP 
S"IPRINT "ILS ME FEUVENT QUE VOUS REPO 
SER'":GOTO 184 

SG IF Ciga=i AND Cié=si THEN GOSUE 448 
G:PRINT "ILS VOUS REFOUSSENT":GOTO 16464 
Gé IF Cifési OR Cié=i THEN CAXECHA+IS 
SIMÉ="CIMECIN: GOSUE 64144: PRINT "ILS VO 
US ELESSENT"':IPRINT "ET VOUS FERGEZ GUÙU TE 
MPES 4 VOUS SOIGNER":GOTO 1844 

SE F4 IMS="CIMPRIS": GOSUE di: PRINT "SE 


UL ET SANS ARMES, ,":PRINT "VOUS VOUS FAIT 
ES ARFETER...'":GOTO Sn 


[] Nous avons traité le cas de la chambre de d’Artagnan à l’ordre 
64010, et nous avons signalé que si le joueur prend l’objet situé dans 
l’armoire, l’armoire se referme, de même pour le coffre et le tiroir. 
Mais il reste le cas où le joueur referme par exemple l’armoire sans 
prendre la cape. Pour traiter ce cas nous ajoutons en 5580 un GOSUB 
64000. 


9980 GOSUB 64666:PRINT "VOILA C’EST FERM 
E":GOTO 16 


Nous donnons maintenant le petit programme qui permet de créer 
le fichier D qui contient le numéro de la disquette. 


INPUT "D= ",0 
POKE 65227, É 
SAVE "DC", Es SITE T 1 


CNE 2 Los 
sou 


Ce programme n’appelle pas de commentaires particuliers : vous 
mettez la variable D à 1 puis vous insérez la face 1 et vous exécutez 
le programme, puis D à 2 la face 2 idem, puis 3, puis 4. 


— 193 - 


16. L’ARCHITECTURE DU JEU 


Une fois que ce programme de jeu d’aventure est réalisé, il n’y a 
pas de problèmes particuliers de taille de mémoire pour l’ Amstrad, 
tant que l’on n’a pas d’image. Si l’on ajoute les images en ne faisant 
pas de traitement spécial, c’est-à-dire que l’on charge les images 
directement dans la mémoire écran à partir de la disquette, tout continue 
à bien se passer, mais l’apparition des images à l’écran se fait par 
lignes entrelacées, ce qui n’est pas très agréable, comme nous l’avons 
déjà signalé. D’autre part il est nécessaire d’utiliser sept disquettes. 
Nous avons donc opté pour la compression d’image. Dans ce cas, 
comme nous l’avons vu précédemment, nous sommes obligés de baisser 
le HIMEM de 8K octets, ce qui ne laisse plus assez de place pour le 
programme d’aventure. 

Il est donc nécessaire de le couper en trois parties : la première, 
que nous appellerons DEBUT, permettra de charger les programmes 
en langage machine, de faire apparaître le texte d’introduction et la 
première image. Puis nous appellerons AVENT le programme qui 
comportera tout le jeu d’aventure sauf sa fin. Cette fin de jeu s’appellera 
bien sûr FIN et sera chargée lorsque le joueur aura perdu ou gagné. 
Celle-ci comportera l’image de fin gagnante ainsi que la musique pour 
les deux fins possibles. Pour détecter si c’est une fin heureuse ou 
malheureuse, nous allons transmettre du programme AVENT au pro- 
gramme FIN une valeur 0 ou 1 respectivement à chacune des deux 
situations. Il n’est pas possible dans le BASIC de l’Amstrad de 
transmettre la valeur d’une variable d’un programme à un autre, nous 
allons donc faire un POKE de la valeur adéquate dans la mémoire 
65528 (comme pour les couleurs des encres des images) au niveau 
du programme AVENT, et nous récupérons cette valeur par un PEEK 
au début du programme FIN, ce qui nous permettra de jouer la bonne 
musique. 

Le programme sera donc lancé par un RUN “DEBUT” situé sur la 
face 1, on trouvera ensuite sur la face 1 le programme AVENT et 
l’image CIMO. Le programme FIN sera situé sur les trois autres faces, 
car le jeu peut se terminer en plusieurs endroits. De même l’image 
CIMPRIS accompagnera le programme FIN. L’image CIM39 : “On a 
gagné” se trouve uniquement sur la face 3. 
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A. TABLE DES COULEURS 
DES IMAGES 


BORDURE| ENCRE 1 ENCRE 2 | ENCRE 3 | ENCRE 4 
23 


— 
me em OO OONNNND DDR OOCON mm OC00OCOCoOoOoOCoOoOMNO-OCoOC 


0 
26 
0 
0 
0 
3 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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IMAGE 


CIM22 
CIM23 
CIM23G 
CIM23D 
CIM23DP 
CIM24 
CIM25 
CIM26 
CIM27 
CIM28 
CIM29 
CIM30 
CIM30F 
CIM30P 
CIM31 
CIM32 
CIM32P 
CIM33 
CIM33P 
CIM34 
CIM34P 
CIM35 
CIM35P 
CIM36 
CIM36P 
CIM37 
CIM37P 
CIM38 
CIMSOIN 
CIMMER 
CIMPRIS 
CIM39 


BORDURE | ENCRE 1 


= 


0 
5 
5 
5 
5 
2 
0 
0 
1 
0 
1 
1 
1 
1 
0 
0 
0 
0 
0 
2 
2 
2 
2 
0 
0 
0 
0 
0 
1 
0 
0 
3 


0000000%V%OO0O0O0%W%OOC0O0O00O0O0OCOOC0O0OOOCOCOOA 
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ENCRE 2 


24 
24 
24 
24 
24 
24 
26 
26 
26 
24 
25 
26 
26 
26 
26 
26 
26 
15 
15 
24 
24 
25 
25 
25 
25 
26 
26 
25 
25 
26 

7 
26 


ENCRE 3 
26 


wo a a a D nn RD A nn a a 


ENCRE 4 


18 
26 
26 
26 
26 
26 

6 
11 

2 
15 
11 
11 
11 
11 
25 
24 
24 

9 

9 
26 
26 
26 
26 
18 
18 
24 





B. LES IMAGES 





Image de présentation 





Rue de Trousse Chemise 


202 


Devant la maison de la veuve 





Devant le boudoir de la reine 








du duc 





























































































































Devant les écuries 





Devant la maison de l'usurier 





Devant l'estaminet 








Devant les cuisines 





Devant la salle des gardes 
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Devant le restaurant 


LP 


Devant les douanes 
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Devant la grange 


Devant la librairie 



































208 








Devant le secrétariat 


Devant la cour de Versailles 
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Devant la cour de Buckingham 


LUE 





Dans la chambre de d'Artagnan 


= 210 = 





Chambre de d'Artagnan sans épée 





Chambre de d'Artagnan tiroir ouvert 





Chambre de d'Artagnan sans épée, tiroir ouvert 


BATETENAEBNTENNTE 
IH CUIIIANINNI | 
CN 


ii | 





Chambre de d'Artagnan armoire ouverte 


2127 


fs UE 





Chambre de d'Artagnan sans épée, armoire ouverte 





Chambre de d'Artagnan coffre ouvert 


= 213 = 





Chambre de d'Artagnan sans épée, coffre ouvert 





Dans la maison de la veuve 


— 214 

















Chambre de la maison de la veuve 





Le boudoir de la reine 


= 215 


ai 





HA 

























































































F 


Dans la bibliothèque du duc 

















Dans les écuries 








Ecuries sans Bonami 





Ecuries sans Flambeau 
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Ecuries sans Laflèche 





Ecuries sans Mirandole 





Chez l'usurier 





Dans l'estaminet 





Les gardes du cardinal dans l'estaminet 





Athos, Porthos et Aramis dans l'estaminet 
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.. 
se 
D 
né 
n 
nd 
i 
H 
| 
Î 
H 
È H 


Dans les cuisines 








Dans la salle des gardes 





Dans le restaurant 


Dans les douanes 





Dans la grange 








Dans la librairie 





Dans le secrétariat du duc 





La secrétaire de Buckingham souriante 





La secrétaire de Buckingham déçue 


7.225 = 





Dans la cour de Versailles 





Dans la cour de Buckingham 
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La cour de Buckingham après changement de cheval 





La campagne française 
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La campagne française sans fleurs 





Le port de Calais 
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Le port de Calais avec le capitaine 








Le port de Douvres 


229 


NRA 
Nr 





Le champ en Angleterre 
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Le champ en Angleterre sans fleurs 


Rue de Londres 








231 


+- 
Lo 
Le] 
Œ 
be 
un 


gone 


Se 





La rue de Londres sans fleurs 








Le relais de la Jument bleue 


su 
TT 





Les soins lorsque l'on est blessé 





La mer 


1233 





Image si l'on a perdu 





Image si l'on a gagné 


C. LISTING DU LOGICIEL CREIMAGE 
VERSION CPC 464 


S ON ERROR GOTO 42048 
14 MEMORY 9724:MODE 1:DATÉ 35,0,0,205,5, 
188,261,6,62,,33,,,17,,:205,68,188,291,8 
,6,33,0,192,1,91,102,22,1,94,25,125,238, 
255,194,42,102,124,238,295,292,66,102,12 
3,196,194,57,102,20,2602,54,182,195,29,10 
2,22,255,0,3,123,2,122,3,2,19S 

28 DATA 26,102,3,2,122,3,2,297.67,77,182 
PDl Brad dd 1752 08:02 %7: 176,201; 
ü,33,8,192,1,91,124,3,10,87,3,16,114,3S, 
61,194,1804,166,125,238,295,194,99,1é6,12 
4,238,255,194,99,l1é6é6,2û1,0 

3û FOR I1=24118 TO 26202:READ &:POKE 1,6: 
NEXT:FOR 1=42588 TO 42419:RE4D 4:POKE 1, 
AINEXT:SPEED KEY 19,1:E8="m  " 

4ù EB=i:l@ü=1:11=24:12=8:18=1é6:P=û:EORDER 
1:GOSUB 144S8:LOCATE 12,1: PRINT "CREATIO 


N D'IMAGES": LOCATE 15, 12iPRINT MERPLICAT 
IONESMILOCATE 18,24: FRINT M"TSPEZ £E "ae LIHI 
LE IMÉEYES "MI LIEMD Es CLE 

1644 GÜSUE 1ANSG:EÛURDER BtINE H,IMe: IE 1 
SILSINE EQIZ:IME SISIPLOT & TP 

1146 Call | 1DsAge" "I MHILE BEM: A8= INK 
ETS: UEND  ASASCIURPERS CAE 33 TR ré ME 
Ts THEN Fañ-gs 


GB OHer-Let Mer Ti-i AssaLaiiIr KG THEN 










nn E 
Tr 


— 
pa La pa 


D] 
Û 


DORE EE 


«25 at 
17 GE 
15 BE, 
ZE 4 


li 


TT es 
LE Fi 
Tu 


236: 


12418 LOCATE 11,24:INPUT "",B:IF B<6 OR 

B>26 THEN LOCATE 11,24:PRINT E$:GOTO 128 
14:ELSE GOSUE 64448:GO0TO 1484 

13008 GOSUE 68830 :LOCATE 1,24:PRINT "POS 
ITION : X= ";XPOS/23;" Y= ":YPOS/2 

13018 WHILE INKEY#="":WEND:GOSUB 640460 :G 

OTO 1146 

14888 GOSUEB é483G:LOCATE 16,22:PRINT "PA 

LETTE :":LOCATE 1,2Z4:PRINT "I@= li= 

12= 13= (G-26)"; 

1481@ LOCATE 4,24:INPUT "",1G:IF 19<8 OR 
1d>26 THEN LOCATE 4,24:PRINT E#:GOTO 14 

dia 

14428 LOCATE 12,24:INPUT "",I1:IF 11<6 O 

R 11>Z6 THEN LOCATE 12,24:PRINT E$:GOTO 
14828 

1443 LOCATE 28,24:INPUT "",IZ:1F 12<6 Q 

R 12>26 THEN LOCATE 24,24:PRINT E#:GOTO 
14836 

14648 LOCATE 28,24:INPUT "",IS:IF I13<6 0 

R 13>26 THEN LOCATE 28,Z4:PRINT E$:GO0TO 

1484û:ELSE GOSUE 68448:G0T0 1888 

1495û POKE 65536 ,10:POKE 65531,11:POKE é 

5532,12:POKE 65528,13:POKE 65529,B:RETUR 

N 

15884 GOSUE 6803 nee 1,24:PRINT "DEF 

LACEMENT " : GOSUB ous =2#X1 :Y=2#Y1 : GOTO 
14ëu 

14488 GOSUE éAGS4:LOCATE 18,25:PRINT "CO 

ORDONNEES 4BSOLUES":GOSUB 41@46:DRAW ZxX 

1,2#Y1,P:GO0TO 1148 

1784G GOSUB 40@34:LOCATE 18,25:PRINT "CO 

ORDONNEES RELATIVES":GOSUE é1869:0RGUR 2 

#X1,2*Y1,P:GOTO 1166 

15604 GOSUE é0404:GOSUE 66438:LOCATE 1,2 

SPRINT "SAUVEGARDE NORMALE {1 COMPRESS 

EE (2) :"3:GOSUE 1716G:INPUT "NOM :",B#: 
GOSUE édaddilF A=5û THEN CALL 24122: 0=PE 

EK(26187)+256*PEEK(261970)-26203:ELSE G0S 
UE <AASG:SAVE B4,6,26236,14284d:G0T0 1845 
G 
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18918 LOCATE 1,24:PRINT Ci:1F C>8192 THE 
N PRINT " IMAGE > S8K'":WHILE INKEY#$="":UE 
ND:GOSUE 48848:GO0T0 116@ 
18826 FOR I=û TO SGG:NEXT:POKE 26194,32: 
POKE 26196,92:POKE 26197,154:POKE 26199, 
F2:POKE 26206,14Z:CALL 26192:POKE 261974, 
64:GO0SUE 44840:GOSUB é04SG:S4VE B$,6,343 
96,C:GOSUB 68468 
18834 GOSUB éd868:GOTO 1188 
17606 GOSUB 64@38:LOCATE 1,23:PRINT "CHA 
RGEMENT NORMAL (1) DECOMPRESSE (29 :"3:G 
OSUB 191@G:INPUT "NOM :",E#:GOSUE 46458: 
LOAD B$:1F 4=58 THEN CALL 42587:GOSUE 64 
GGG:ELSE GOSUB éggiu 
17014 GOSUB éd@é@: IW=PEEK(65530) : I1=PEEK 
(655231) :12=PEEK( 65522) : 18=PEEK(45533) :B= 
FEEK(45527):GO0T0 1444 
179148 A$=INKEYS:IF $="" THEN 19148:ELSE 
A=ASC(AY):1F A<47 OR A>58 THEN GOSUB 68 
648:GOTO 11G08:ELSE PRINT À$;:RETURN 
2006@ GOSUB é4G3G:LOCATE 17,2Z:PRINT "20 
NE":LOCATE 1,24:PRINT "RECTANGLE (1) TRI 
ANGLE (2) CERCLE (3) GRAND RECTÉNGLE « 
4)" 
24019 A$=INKEY#:IF d$="" THEN 268014 ELSE 
A=ASC(A$) :GOSUE 60440:IF ÀA<48 OR 452 T 
HEN 110@:ELSE ON 4-48 GOTO 24146 ,24200,2 
4:08 ,284uû 
24166 GOSUE é443@:LOCATE 15,22:PRINT "RE 
CTANGLE" :LOCATE 1,24:PRINT "UNIFORME 
(19 RAYE HORIZONTAL 62)"; :LOCATE 1, 
2S:PRINT "RAYE VERTICAL {3 COULEURS 4LT 
ERNEES 4)"; 
20114 At="":WHILE A$="" :A$=INKETS :WEND:4 
=ASC(AS) :GOSUE 40040:IF A€48 OR 4>52 THE 
NW 114G:ELSE LOCATE 1,24:PRINT "COULEUR 
æ COULEUR 2 =":LOCATE 1,2S:PRINT "Xi 


Yi= X3= Y3="; 


241234 LOCATE 13,24: INPUT "",PI :IF Fi<4 0 
R P153 THEN LOCATE 13,24: PRINT E#:GOTO 
26134 
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26148 LOCATE 28,24:INPUT "",P2:1F P2<8 O 
R P2>3 THEN LOCÂATE 28,24:PRINT E$:GOTO 2 
g14û 
24158 LOCATE 5,25:INPUT "",X1:LOCATE 15, 
25:INPUT "",Y1:LOCÉTE 25,25:INPUT "",X3: 
LOCATE 35,2S:INPUT "",Y3:GOSUB 68648 : ON 
4-48 GOTO 24160,20170,24160,28196 
24164 FOR I1=v71 TO Y23:MOVE 2#X1,2%1 : DRAW 
2#X3,2#1,P1:NEXT:GOTO 116% 
24174 FOR I=v1 TO Y3 STEP 2:MOVE 2#X1,2% 
l:DRAW 2#X3,2%I,P1:MOVUE 2#X1,2%€1+19 :DRA 
W 2#X3,2#(1+1),PZ:NEXT:GOTO 1164 
24184 FOR I=X1 TO X3 STEP Z2:MOVE 2%1,2%Y 
1:DRAW 2#1,2#Y3,P1:MOVE 2#(14+12,2#Y1:DRA 
W 2#(1+13,2#Y3,P2Z::NEXT:GOTO 1169 
24194 FOR I=Y1 TO Y3:FOR K=X1 TO X3 STEP 
2:PLOT 2#K,2#I,P1:PLOT 2ZxCK+19,2#I,P2:N 
EXT: P=P2:P2=P1:PI=P:NEXT:GOTO 1166 
24260 GOSUB 41240 :L=SGR(CX3-X2) “ 2+CY3-Y2 
>°2):DX=CKX3-X2)/2/L:DY=CY3-Y2)/2/L:A=4%#1 
NTÉLI:IMOVE 2#X1,2#Y1:1=2#X2:K=2#%2:DRAU 
1,K,P:FOR J=i TO A:MQVE 2#X1,2#%1:1=14+DX 
:K=K4+DY:DRAW I,K,P:NEXT:GOTO 118@ 
24306 GOSUB é1204:FOR I=-PI/2 TO PI/2 ST 
EF 1/R:K=2.2#R#C0SCI) : ORIGIN 2*#XC-K,2#YC 
+24RESINCID :DRAU 2#K,8,P:INEXT:ORIGIN 6,8 
:GOTO 116 


20444 GOSUE 44446 :LOCATE = FRIHT "COU 
POI PFRINT "XK2= (Z=" 


28418 LOCATE 11,24:INPUT "",Pi:1F Pi<@ © 
R P1}255 THEN LOCATE 11,24:FPRINT E#$:GOTO 
2641ù 

24424 LOCATE 22,24:INPUT "" :I1F Xié6 © 
R “1:39 THEN LOCATE 22,24: En Et:GOTO 
24374 

24438 LOCATE 33 
,Tl:IF Y1€8 OR 

RINT E$:GO0TO 244536 

2444û LOCATE 22,25: INPUT" ,X2: LE X2 


324:INPUT *" 
1224 THEN LOCATE 33,24:F 


26446 
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EG4S6 LOCATE S3S,ES: INPUT "MZ IF Y2éé OÙ 
FR Y2i24 THEN LOCATE 33, a Et: GOTO 
2445 

£G4ss GÜSUE éGé4@:PORE Zéiis Pi:PFORE Zél 
£1,YI :POKE ZélZ2Z,x1 :POKRE 2Zé124,%2 :PFOK 
E ZéiZS ,X£Z:CALL Léli7:GOTO 1166 

21644 GOSUE es GOTO 1164 

ZE2U86 GÜSUE 66436: CLS: PRINT "4 NOIR 


mn 


F VERT 18 VERT VIF 1 ELEU 
14 TURAUOQISE 17 VERT MSRIN Z BLEU VIF 
11 BLEU CIEL 26 TURGQUOI VIFS ROUGE 


4 


12 JAUNE £1 VERT CITRONS MAGENTA 
13 BLANC Z2 VERT PASTEL" ; 
ZEW1G PRINT "S MAUVE 14 ELEU PAST 2 
3 TURQU PAST 6 ROUGE VIF 15 ORANGE £ 
4 JAUNE VIF 7 FOURFRE 1é RÜSE £ 
© JAUNE PAST S MAGEN VIF 17 MAGEN FAST € 


ELANC GRILL" 

22426 FRINT RMETEE 1-24-i1é6-S':PRINT:FR 
INT "ACTUEL "31@3113:312;13;" BORDURE se 
22434 WHILE INKEY#="":UWEND:GOSUE 64446: 
ÜTO 114@ 

25040 GÜSUE 668066: GÜTO 1146 

24444 GOSUB éG4S4:LOCATE 16,22:PFRIMT "FI 
GURE'":LOCATE 1,2Z4:FRINT "RECTANGLE 1 
) TRIANGLE (2) CERCLE 3)" 

ZAU14 AE=INKRETSIIF 4$="" THEN Z46i4 ELSE 
A=ASC AE) 

£24UZ6 GOÜSUE éGG4tiIiF 4548 OR 4>S1 THEN 
1BG:ELSE ON 4-46 GÜTO 241646,742464,24344 
24146 LOCATE 1,24:PRINT "COULEUR = 

X1 = 1 =":LOCATE 17,25: PRINT "XS 
= “ & =" 

24116 LOCATE 11,24: INPUT "",PiIF F<6 OR 
P:3 THEN LOCATE 11,Z4:PRINT E$:GOTO 2411 
ä 

24124 LOCATE 22,24:INPFUT "",KI:LOCATE 3 
, 24: INPUT "",YI:LOCATE 22,25:INPUT "",X 
ILOCATE 33,25: INPUT "",YS: GOSUE 46646 
24134 MOVE Zxx1,2#v1:DRAW 2Z#X3,2%%1,P:DR 
AW ZxX3,2# VS: DRAU ZEXi, LES: DRAU ZEXT, ZE 
Y1:G0ÜTO 11688@ 


2 


Ci Qi 
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24286 GOSUB 41388 
24214 MOVE Z2#x1,2#Y1:DRAUW ZKX2,2#Y2,P:DR 
A 2#X3,2#Y3:DRôW 2#K1,2#Y1:GO0OTO 11646 
24304 GOSUB é1208:0RIGIN ZkCKXC+1.1#R0 ,2% 
YC:FOR 1=Q TO ZxPI+(1/R) STEP 1/R:DRAU Z 
.ZERECOSÉI)-2.2#R,Z2ERESINEI) ,PiNEXT:ORIG 
IN @,@:G0T0 11@@ 
25044 GOSUE éG624:LOCATE 1,24:INPUT "IMé 
GE à SUPERPOSER :",4#:GOSUB 4464 :GOSUE 
64850 :LOGD AF:GOSUE éGüéñ:GOSUE 66626 :G0 
SUE <84@@ 
25149 FOR K=9726 TO 26149:1F PEEK(CK)I=G T 
HEN 251468 ELSE A$=BINS(PEEK(K+39426) ,86: 
Et=EINS(PEEKCKD ,6 
25110 ABE=RIGHTEC AS, 1) : BOE=RIGHTSCES, 10: 
AAE=MIDE CAE, 4,1) :B4#=MIDÉCES,4,10:1F EG$ 
{>"@" OR B4$<)"a" THEN 4ñ#=B0#:44%=E4% 
25120 A1E=MIDSCAS,7,13:B1#=MIDE(ES,7,10: 
ASÉ=MIDÉCÉS,8,1):BS=MIDS(BS,3,10:1F Ei$ 
é>"@" OR ES$<)"a" THEN 4it=B1#:45%<E5% 
25136 AZE=MIDECAS,6,19:B2#=MID#(ES,46,10: 
éS=MIDECAS,2,1):Bé=MIDÉ(E#,2,10:1F E24 
{>"Q" OR Bé$éi"a" THEN AZ2$=B29 :46#=E46# 
25148 AS$=MIDHCAS,5,10:E2#%-MID$(E#$,5,10: 
A7B=MIDÉCAS,1,1):B7#=MIDECBS,1,10:1F 34 
{>"G" OR E74<>"4" THEN A3+=63$ :474=E7# 
25158 POKE K+397426,128#0AL(A7#0 +64#VAL (A 
SE) + 32HUAL ASS) +1 SHVAL LA 4E D) + BAUAL CAGE I +4 
#UAL CA 2E D + 2EVAL (A1 #2 +VAL AGE 
25168 NEXT:GOTO 1160 
26066 GOSUB 68838:LOCATE 1,24:PRINT "CON 
FIRMER LE NETTOYAGE ECRAN <OUI/NON>" 
26018 AS=INKEYS:IF A$="" THEN 26918 :ELSE 
IF UPPER$(A$)="0" THEN CLS:GOTO 1800:EL 
SE GOSUB 60048:GOT0 190% 
27606 GOSUB 68838 :CLS:LOCATE 1,1:1DIR 
27010 WHILE INKEY$="":WEND:GOSUB 60849 :G 
OTO 168@ 
28066 GOSUB 68838 :LOCATE 1,23:INPUT "ANN 
ULATION DU FICHIER :",B#$:PRINT "CONFIRME 
R L'ANNULATION DE ";B$:PRINT "<OUI/NON>" 
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28016 AS=INKEYS:IF A$="" THEN 2841G:ELSE 
IF UPPERS(A$S)="0" THEN IERÂ, 9B$ 

28026 GOSUB 60646:G6G0T0 116@ 

27886 GÜSUB 68036 :CLS:PRINT "<S}> : SAUVE 
GARDE IMAGE1":PRINT "<L}> : CHARGE IMAGE! 
"sPRINT "<C> : COPIE IMAGE > IMAGEZ2":PR 
INT "<R> : COPIE IMAGEZ > IMAGEIl":PRINT 

"<N> : NETTOYAGE IMAGEÏ":PRINT "<T} : CÂ 
TALOGUE'" : PRINT "<> : ANNULATION FICHIER 


Z7961@ PRINT "<P> : POSITION DU POINT"':PR 
INT "<M> : MOUVEMEMT DU POINT'":PRINT "<B 
> : COULEUR BORDURE'":PRINT "<J} : JUXTAP 
OSITION D'IMAGES":PRINT "<I} : COULEUR D 
ES ENCRES":PRINT "<X»> : CODES DES ENCRES 


276028 PRINT "<D> : DROITE (COOURD ABS)":P 
RINT "<Y> : DROITE (COORD RELAT)'":PRINT 
"<F> : FIGURE'":PRINT "<2> : ZONE'":PRINT: 
PRINT "<@2>,<12,<2>,<3> : STYLOS" :PRINT:P 
RINT "FLECHES : DEPLACEMENT " 

29166 WHILE INKEY$="":WEND:GOSUB 60846:6G 
OTO 166886 

68868 POKE 26196,92:POKE 26197,182:POKE 
26199,60:POKE 26268,192:CALL 26192:RETURN 
66818 POKE 26196,8:POKE 26197,192:P0OKE 2 
6199,92:POKE 262060,1@2:CALL 26172: RETURN 
saU 20 PÜKE 26176,254: FOKE 26177,37: PÜKE 
EE, 9Z:POKE 26200,16@2:CALL 26172:RETUR 


à da 


34 PFOKE Zéi7é,ZSS:POKE Zéi17r,397:PÜOKE 

77,4@:POKE 26206, 1F72:CALL 26172: LOCATE 

GE ÉRIRRE FRE‘""):LOCATE 1,25:PRINT " 
: RETURN 


64444 FOKE Zé17é,G:POKE 26177,1F72:POKE € 
6177,2535:POKE 26208 ,37: CALL 26172:RETURN 
66458 POKE 45264,1601:PÛKE d4dééS, 141 :RETU 


66Gé6 PÔKE 45266 ,37:PÛKE 44668,37:RETURN 
61846 LOCÂATE 1,24:PRINT "ENCRE= " 
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61418 LOCATE 8,24:INPUT "",P:IF F<G OR F 
>3 THEN LOCATE 8,Z4d:FRINT De GÜTO 61814 
1104 LOCATE 18,Z2d:PRINT "X = 1 
é1114 LOCATE Z2,Z24:INPUT "",X1:LOCATE 34 
24:INPUT "",Y1:GOSUB 68648 : RETURN 

1206 GOSUE 4644G:LOCATE 1,Z4:FRINT "COL 
= RéY ON= KC= “YC=" 

1214 LOCATE 7,24:INPUT "",P:1F F<6 OR PF 


é1224 LOCATE 158,24: INPUT ""RiILOCATE 27, 
Es INPUT "M ,KC:ILOCATE 3é6,24:INPUT "",YC: 
GOSUE 646446 : RETURNM 

8136068 GOSUE é4444G:LOCATE 1,23: PRINT Es 


LEUR = x1= Yi= 
YZ= X3= Y Ée "; 
41314 LOCATE 11,22:INPUT "",P:IF P<@ OR 


F3 THEN LOCATE 11,23:PFRINT ee GOTO 6131 
5 

#1324 LOCATE 25,23: INPUT "MX: LOCATE 35 
323: INPUT "M ,Y1:LOCATE 5,24: INPUT "",X2: 
LOCATE 15,24: INPUT MU YZ:LOCATE 2S,24:1IN 
PUT "",XS:LOCATE 35,24: INPUT "",#3:GOSUE 
646 44 : RETURH 

S2A4G GOSUE 4434: CLS: PRINT "ERREUR BASI 
C':UWHILE INKEYÆ="":UWEND:GOSUB 64446 : RESU 
HE 1446 
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D. LISTING DES MODIFICATIONS 
DE CREIMAGE POUR CPC 6128 


18088 GÔSUB 64868:GOSUB 68836 :LOCATE 1,2 
3:PRINT "SAUVEGARDE NORMALE (1) COMPRESS 
EE (29 :"3;:GOSUB 191G6G:INPUT "NOM :",B#: 
GOSUB 60646:1IF À=50 THEN CÂALL 26132:C=PE 
EK(26189)+2S6*xPEEK(261978)-26203:ELSE MEM 
ORY 16384:SAVE B$,B,26236,16384:G0T0 184 
36 


18026 FOR:1=80 TO SUG:NEXT:POKE 261974,52: 
POKE 26196,92:POKE 26197,134:POKE 26199, 
92:POKE 26266,1G2:CALL Zé192:POKE 26194, 
64:GOSUB 60046 :MEMORY 16384:SAVE B$,B,34 
376,C:6GOSUB 68866 


18030 MEMORY 9724:GO0T0 1186 


179846 GOSUB 66063G:LOCATE 1,23:PRINT "CHA 
RGEMENT NORMAL (19 DECOMPRESSE (29 :"3;:6G 
OSUB 19166:INPUT "NOM :",B#$:MEMORY 16384 
:LOAD B$:1IF À=SG THEN CALL 42589:GO0OSUB é 
GGGG:ELSE GOSUB 66416 


19619 MEMORY 9724:10=PEEK( 65536) : I1=PEEK 
(65331) : 12=PEEK(65532) : IS=PFEEK(6S5S33) : B= 
PEEK(65529):GOTO0 1668 


25604&û GOSUB 6@@36:LOCATE 1,25:INPUT "IMA 
GE À SUPERPOSER :",A$%:GOSUB 60646 : MEMORY 
16384:LOÂD A$:MEMORY 9724:GO0OSUB é682ù 
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E. LISTING DU PROGRAMME 
D’AVENTURE DÉBUT. AVENT. FIN. 


PROGRAMME DÉBUT 


1 MODE 2 

16 PRINT "35 0} 0% 3 3 3 2 5 5 3 3 > 3 à > 
AVERTISSEMENT KA & € E < € € € < € 

& € € <" 

26 PRINT " 

34 PRINT: PRINT : PRINT ; LES DE 


UX DISQUETTES QUE VOUS VENEZ D'ACQUERRIR 
ONT ETE CONCUES POUR SERVIR DE SUPPORT 
AU LIVRE ‘AVENTURE SUR AMSTRAD’ EDITE CH 

EZ SYBEX. VOUS POUVEZ" 
35 PRINT "CEPENDANT, SI VOUS NE POSSEDEZ 
PAS CET OUVRAGE, LES UTILISER TOUT à Fâ 
IT NORMA- LEMENT." 
4 PRINT:PRINT " CET OUVRAGE 
VOUS APPREND, EN DETAIL, COMMENT CONCEVO 
IR, REALISER ET FROGRGMMER VOUS-MEME UN 
JEU D'AVENTURE SUR VOTRE CHER AMSTRAD. VU 
QOUS DECOUVRIREZ PEUT-ETRE AUSSI, DES TRU 
CS OU ASTUCES QUE VOUS POURREZ UTILISER 
DANS D'AUTRES" 
45 PRINT "PROGRÉMMES." 
Sû PRINT:ERINT LES PETITS F 
QUINEURS QUI ONT EU LA CURIOSITE DE REG 
RDER LE CATALO- GUE DE CES DISQUETTES, 
NT PEUT-ETRE ETE SURPRIS D‘Y DECOUVRIR L 
ES FROGRAMMES" 
68 PRINT "‘CREldé4’ ET ‘CREI6128’. IL S’ 
AGIT, TOUT SIMPLEMENT, DE PROGRAMMES DE 
CREATION D'IMAGES PUISSANTS, ET CEPEMNDé 
NT SIMPLE D'EMPLOI. ILS ONT SERVI AUX AU 
TEURS POURREALISER LES IMAGES DE CE JEU. 
VOUS TROUVEREZ, DANS “AVENTURE SUR MST 
RAD‘, LES" 
78 PRINT "EXPLICATIONS DETAILLEES DE CES 
FROGRAMMES, SINSI QUE LE MODE D'EMPLOI. 
SG PRINT:PRINT:PRINT "3333 
ET OUEN FRAPPEZ UNE TOUCHE ET 


F4 PRINT "ss sos sus 
ECN AMUSEMENT vunsssesusss 


144 WHILE INKEY#=" À UEND 
1664 MEMORY 34388:DATÉA 3 
261,6,33,û, 71,134 
,35,461,194, 184,166,125 
5,124,238,255,194,99,14 
1819 FOR 1=24381 TO 34 
A:NEXT:FOR 1=42588 TO 
1 ,4:NEXT 
1424 MODE 1:LOAD "CIMA":INK G,G@:INK 1,8: 
INK 2,4:INK 3,@:CALL 34381:CéLL 42589:60 
RDER FEEK(455293:INK G,PEEK(65536@) : INK 1 
,PEEK(45521):INK 2,PEEK(45532):INK 3,PEE 
Kt65522) :GOSUB 40008 :RUN "AVENT. BAS" 
4Gag RESTORE 44648:E=G:ENV 1,3,-5,8:ENU 
2,1,-15,0 
4aëwi@ FOR I=i TO Z 
46615 READ F1,D1,E1,F2,02:1F Fi=-1 THEN 
44430 ELSE IF Fi=-2 THEN 1=2:E=1:6GOT0 4@ 
HT: 
4GGZ24 IF INKEY#4)>"" THEN RETURN ELSE SOU 
ND 1,F1,D1,15,E1:SOUND 2,F2,D2,4:GOT0 4@ 
g15 
qañu3a RESTORE 4G64G:NEXT:IF Fi=-Z THEN d 
Güià ELSE IF E=1 THEN RETURN ELSE RESTOR 
E 4AGé8:G0TO 481 
48048 DATA 24,14,80,47,14,24,14,0,48,14,Z 
4,14,û 197,14 ,40, 14,0,53,14,30,14,1,60,14 
.8%,14,24,14, 1,60,14,@,14,2,47,14 
i 


3 
F7:READC 4:POKE I, 
617:RE4D À: PFOKE 


! 

ä, 
.48,14,22,14,1,45, 4,24,14,1,47, 
1,53,14,24,14,1,47,14,08, 14,2,46 
“ 1,47,14,8, ‘14,2,86, 14,24,14,8, 
3,2 
Sa “DAT : 

,14 é 
s@,14, @; 14,2,47 
.84,14,24,14,1 
ls 


s , 
é& elle ; 
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ag@ég DATA 32,14,8,63,14,30,14,8,68,14,2 
7,14,1,53,14,4,18,2,63,14,24,14,1,86,14, 
8,14,2,53,14,27,14,1,80,14,.6,14,2,63,14, 
24,14,1,88,14,8,14,2,63,14,27,14,1,53,14 
:38,14,1,47,14,32,14,1,53,14,30,14,1,47, 
14,27,14,1,53,14,0,14,2,68,14,32,14,0,32 
,14,36,14,6,30 

49878 DATA 14,27,28,1,27,28,32,14,8, 
4,38,14,0,60,14,27,28,1,53,28,20,28, 


3 


Er 
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PROGRAMME AVENT 


N° Lignes 


0- 5 Initialisation 
10- 290 Analyse de syntaxe 
5S00- 880 Tests de direction 

1000- 1420 Description des lieux 

1500- 1590 Bateau 

2000- 2050 Dictionnaire 

2500- 2540 Calais 

3000- 3040 Douvres 

3500- 3660 Voir () 

4000- 4220 Prendre (2) 

4500- 4550 Sortir (3) 

5000- 5090 Ouvrir (4) 

5500- 5580 Fermer (5) 

6000- 6070 Attaquer (6) 

6500- 6710 Donner (7) 

7000- 7010 Laisser (8) 

7500- 7640 Descendre (9) + Monter (10) 

8000- 8170 Inventaire (11) 

8500- 8710 Entrer (12) 

9000- 9120 Demander (13) 

9500- 9550 Aller (14) 
10000-10200 Changer (15) 
10500-10540 Soigner (16) 
11000-11050 Ferrer (17) 
11500-11590 Payer (18) 
12000-12060 Appeler (19) 
12500-12550 Faire (20) 
13000-13080 Montrer (21) 
13500-13560 Frapper (22) 
14000-14060 Lire (23) 
14500-14540 Cueillir (24) 
15000-15020 Manger (25) 
15500-15520 Dormir (26) 
16000-16080 Acheter (27) 
16500-16510 Embrasser (28) 
17000-17700 Sauver (33) + Reprendre (34) 
45000-45010 Musique « petit navire » 

-50000 Appel prog. Fin 
64000-64400 Test + chargement images 





Liste des parties du programme principal. 
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S_POKE 65528,@:DIM, VES$(34) ,NOS$ {355 
C1 Ps liC20 el :CriA=liC22 el: C7: Ca 
:WINDOW #G,1,48,22,2S:CLS:LOCATE 1,22 
INT "VOUS ÊTÉS MONSIEUR DE D'ARTAGNAN. 
":GOTO Zaa@ 

19 COx=CO%+1 :K=G: INPUT" --}" ,R&:RÉ=UPPERS 
Ë FE ) 

28 IF LENCR#)=û THEN 16 

30 IF R$="l" THEN 8@64 

qû IF LEN(R#)=1 THEN 58 

Sû IF RIGHT#(R#,19=" " THEN 7ü 

SA Ré=Ré+" 

78 VE=G;URE="" 

84 REt="":NM=G :R=û 

74 A=R+1:R=INSTR(A,RE," "D 
104 RES=MIDÉCRS , 6, R—60) 

116 IF MIDRCRES,2,1)2="/" THEN RES=MID#(R 

Et ,3) 

115 IF K=û THEN V#=RES ELSE N$=RES# 

126 IF LENCRE$)>é THEN RE#=LEFTÈ(RES, 6) : 
GOTO 15% 

136 RF=ASCCRIGHTSRES , 13) 

148 IF RP<éS OR RP>90 THEN RE#=LEFT#S(RES 
,LENCRE#) -1) 

156 IF K=1i THEN 226 
168 FOR I=1 TO NU 
174 IF VE$CI)=RES THEN VE=I:UR#=UES#( I: 

=NV :K=1 

188 NEXT I:IF R=LEN(R#) AND UE=@ THEN IF 
C33%=1 THEN PRINT "JE NE COMPREND PAS": 
GOTO 14 ELSE FRINT "I DON‘T UNDERSTAND" 
:GOTO 16 
194 IF VE=ii THEN SGG& 

175 IF VB=33 OR VB=34 THEN 17686 

28@ IF VE>28 THEN R$=LEFT#(URS,1) :GOTO 5 


Zi IF K=i THEN S& ELSE 9764 

226 FÜR I=i TO NN 

234 IF NOSLIO=URSE THEN ZSf 

244 IF NOSSIDZ=RES THEN NM=I :I=NN 
ZS4 NEXT I 

ZLéÿ IF REILENCRED AND NM=G THEN 9 


—1252 = 


276 IF NM=i THEN Sa 

286 IF NMÈÿ1 AND NM<é THEN RE=LEFTSIRES., 1 
):GOTO SE 

ZFu 7 . GOT Q 


3: auû,4506,SA00,5S08, 
éa86, 7406 ,7 
& 


à 
à F546  eG00 8500, 7066 
iUGE 
4 


10,11560,12600 ,12500 
50û,15000, rent 


Fi, a 14566, 
.12006,12506 1448 

am, 16500 

SA IF RON" AND RECD"S" AND RECME" À 

ND R$<>"0" AND R$é>"W" OR R£="0" AND C33 

“=0 OR Ré="W" AND C32%=1 THEN 8éü 

Sid IF Crié AND Cé31 THEN IF C&S%=1 THEN 
PRINT "VOUS ETES à L'INTERIEUR D‘UNE FI 

ECE":G0TO 14 ELSE PRINT "YOU 4RE INSIDE 

à ROCM":GOTO 14 

520 IF C>7 AND C<i7 AND C<>i4 OR C>33 TH 

EN GOSUE &1@:1F K=û THEN 14 


1, 
: 
[e) 
sl 


539 ON C GOTO 549,9550,570,580,570,570, 68 
0,570,578,610,670,620 640,580, 650, éé8, 51 
9,516,516,510,516,510,810,510,519,810,51 
u,519,519,516,476,708,720,730,744,7Sû,7é 
HL,FS4 

[A 


IF R&="N! THEH Ce: GOT 1444 ELSE IF 

a C=é: GUTO juan ELSE IF KRÈ='"E 
:GOTO IAA Le dE FFE 

IF Ré="E" THEN GOSUE SIG: IF Kei THEH 

1H: GÜTO 464 ELSE 14 

IF F&="0" THEN C=eF:GOTO 1664 ELSE ++ 


[a 


7 LE 


(H 
ot 


SR ut 
T 
ee 


en on 
C. O1 Cf 
Lu] 

£ il ï 


Ca] 


F5 AND R$="6" 


Ce AND R&="O" OR C=! 
S1:GOT0 1448 EL 


AND R$="E" THEN C=: 


QC in 

: 

J 

Z 

x Loan 
1 I 71 


cn in 


F$s"l" OR C=14 AND R&="S" 
3 1866 ELSE 8464 

G IF C=5 éhD Rés"s" OR Czé 
EN C=1:GOTO 1fü4 ELSE 7976 
à IF Fée"0" THEN C=i:GOTO 1640 ELSE IF 
Rts"E" THEN C=2:GOTO 1048 ELSE 756 

AU IF Fés"E" THEN C=il:GOTO 1048 ELSE & 
ñ 





3 A Et M A + 
} n 


F£="p" 


—\ in 





Hot] + 


+. 


ELA OIF FE=MNU THEN. Ces: GOT 1ARE E 
FO OREEMUN THEN Dei: GO 0 1444 ELSE SA 
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E I 


pus 
a 


436 IF RE="S" THEN C=Sé: GOTO 1444 ELSE & 
g& 
646 IF FRS="N" THEN C=3SF:GOTO 1464 ELSE & 
& 
éS4 IF R$="S" THEN C=SS: GOTO 1448 ELSE % 


76 
ééf IF RE="U" THEN C=SF:GOTO 1444 ELSE & 
af 
£&FG IF C£rék=i THEN FRIMT "D'ACCORD, MAIS 


CHEVAL" :GOTO 14 
R&="E" THEN IF C374<)0 THEN C=3:G 
GUY ELSE PRINT "UN GARDE VOUS EMPEC 
DE FASSER":G0TO 14 
IF Ré="N" THEN C=9:GOTO 1986 ELSE IF 
#="0" THEN C=8:GOTO 1408 ELSE 776 
746 IF CZé#=1 THEN FRINT "OK, BUT NOT WI 
TH YOUR HORSE":GOTO 10 
714 IF R&="E" THEN C=4:G0T0 1448 
R&="N" THEN C=14:GOT0 1609 ELSE 
726 IF R#="N" THEN C=1S:G0T0 1884 ELS 
F R="E" THEN 2568 ELSE IF R#="S" THEN 
=38:G0T0 1944 ELSE IF R#="0" THEN C=2 
TO 1üG@ ELSE &éû 
734 IF R$="0" THEN 
dd 
74û IF R$="E" THEN 
F Ré="S" THEN C=11: 
754 IF R#="N" THEN 
F R#="E" THEN C=37: 
"LI" GOTO 3644 ELSE 
764 IF R#="E" THEN C2P#=1 AND C244=) 
THEN C=ié:GOTO 1088 ELSE IF C2d%=û THEN 
PRINT "YOU'RE LOST IN LONDON... TOG LATE 
":GOTO SGG08 ELSE IF C27%=û THEN PRINT 
"A BOBEY ASK YOUR RESIDENCE PERMIT":G0TO 


[RE 
TE TT 





© & J 


Cr. 


Lt 
Rupee 


Le] 


EN! 


:GOTO 1446 ELSE 


[as 
fl 
Lu 


GOT It ELSE I 
1H44 ELSE S&6 
4 
SE 


Cr. 


[e! 


:GOTO i444 ELSE I 
1446 EL IF F$= 


Qtrat 


nn es 1 fi 


.—, 
A, 


CRTEN SENTE 


ns 


if 
CF OIF RESME" THEN Ceis: GOT 44 


ü 
al É 


1 

=" LU" THEN CaSé: GOT 
IF Ré="N" THEN C=33: 

798 PRINT "PAS PâR Lé : IL Fâl 
LIMITES Al JEU !":GOTO 16 


Lau] 


À " 
Do Es! 
mes m 


[En] 
Dex 
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Sa PRINT "NOT IN THÉT DIRECTION : THIS 
GAME REGUI-RES LIMITS !'':GOTO 16 

819 K=G:IF CZéf=4 THEN IF C33%=i THEN PR 
INT "& PIED VOUS PERDEZ OÙ TEMPS": RETURN 
ELSE PRINT "UALKING ? YOU*LL WASTE TIME 
Us RETURN 

S24 K=1l:RETURN 

Séd IF CSSA=i THEN PRINT R$;" N'EST FAS 
UNE DIFECTION":GOTO 884 


874 PRINT R$;" IS NOT À DIRECTION" 

888 R#="":GOTO 16 

iaua GOSUE éqüan 

1845 ON C GOTO 1810,1420,1436,1048,145û, 
1860,1070,1080,1094,1140,1110,1120,1136, 
1148,1150,1144,1178,1180,1170,1264,1216, 
1260,1270,1280,1298,1308,1318,1320,1420, 
234,1240,1350,1360,1376,1386,1390,14900, 
1414 


1414 PRINT "RUE DE TROUSSE-CHEMISE,":PRI 
MT "DEVANT VOTRE CHAMBRE" :GOTG 164 

1424 FRINT "ICI HABITE UNE CHARMANTE VEL 
UE...":GO0OTO 14 

19234 PRINT "Lé FORTE Cl ÉCUDOIR GE LA RE 
INE,":GOTO 164 

1446 PRINT "HEÈRE 15 THE GÜOR OF THE DUKE 
°& LIBRARY" : GÜTO 184 

1454 PRINT "VOICI L'ENTREE DE VOTRE ECUR 
IE...":GO0OT0 16 

itén PRINT "L'ECHOPFE DE L'USURIER...":PFR 
IUT "OONNEZ BEAUCOUR POUR AVOIR FEU" :GOT 
D if 

1474 PRINT "L'ENTREE DCE L'ESTAMIMET OÙ © 
OIN,":PEINT "RENDEZ-VOUS PRIVMILEGIE GES 

GARDES ET DESMOUSQUETAIRES" : GOTO it 

18H64 PRINT "LE FUMET QUI S'ECHAPPE GE CE 
TTE CUISINE MOUS EXCITE LES NéRINES":GOT 
1e 


Do 
“ 
Lou 


re 


PRINT "PFALSAMELEL ! VOUS ETES CELAH 
SALLE DES GARDES OÙ CARDIHAL" : GOTO 


PRINT YOU CAN SEE THE ENTR&NCE OF 
ETAURANT " : GOTO 16 


Tue 
URSS 


4255 — 


1114 PRINT "YOU ARE IN FRONT OF THE CUST 

OM HOUSE" :GOTOG 14 

1124 PRINT "4 LITTLE EARN ND, INSIDE, W 
ELCOMING Hé": GOTO 16 

113564 PRINT "YOU ARE STANDING IN FRONT OF 
À BOOUKSHOP":GOTO 16 

1148 FRINT "PFINED ON THIS DOCR, 4 PFÉNHEL 
INDICATE SECRETARIAT OF THE DUKE‘":G 
OTC 16 

11564 PRINT "VOICI L'ENTREE OÙ FALAIS DE 

VERSAILLES" :GOTO 14 

1164 PRINT "HERE WE RE ! THE ENTRANCE Ù 
F EBUCKIMGHA PÉLACE" : GOTO 14 

1174 PRINT "DANS VOTRE CHAMBRE IL Y 4: 

UN COFFRE, UNE CHEMINÉE, UNE PORTE, UHE 
AFMOIRE, UN EUREAU, UNE FATERE" :GOTO 
14 

1154 PRINT "WSOUH ! SI JEUNE, SI BELLE.. 
.":PRIFT "ET POURTANT SI VEUVE... .":G0OTO 
14 

1154 PRINT "UOUS ETES DEVANT Lés REINE... 
":GOTO 18 

1244 PRINT "HALEF UF YOUR TRIF 15 ACHIEVE 
D OI": FRINT MHERE 15 THE GUKE OF BUCKHINGH 

At": GOTO 1H 

1214 CLS:FRINT " MOICI VOS CHE 

VAUX GMSIF Ciel THEN LOCATE S,£2:PRINT 
"ECMÉTIT" 

1224 IF CZk=i THEN LOCATE 3,2: PRINT °F 

LAMBEAL" 

1256 IF C£isi THEN LOCATE 2£,2:PRINT ML 

AFLECHE" 

1ZaU IF CZZke=i THEN LOCATE Si, ,2:PRIMT "M 
IRAMOGOLE" 


1224 GOT 14 
i£éf PRINT "'L'USURIER S'APPELLE MATéNMTE" 
: GOT 14 


1£2F4 PRINT "LA FUMEE LAISSE DEVINER LE F 

ATRÔOM ET CESGENS ATTABLES à GAUCHE Vastr 
Cisk=f THEN FRINMT "ET & GROITE":GOTO 14 
ELSE GOTO 14 
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IS PRINT "QUE DE BONES CHOSES DCétis CE 





5 MARMITES":GO0TO 16 

LETA PRIAT LES GARDES DU C&RDIMAL SONT 
TRES TRES MEHSCANTS"S: GOTO 16 

iSG6 FRINT INSIDE THE RESTAURANT, THE 
LIMER PRINT CUELCONMES OU": GOTO 16 

1H PRINT MOKÉ, THE USUAL FORMALITIES 4R 
E DOME. IF OU HEED AMYTHIMNG ELSE FLESS 
E COQUE GéCE: GOTO 164 

ISA PRINT UTHE Hé 15 SOFT AND FRESH, 
"iGOTO 16 

2564 PRIT THIS SMÉSHING BABETSURER IE 
SUPPFOSEL T0 EE À SECRETART I: GATO 16 

159 PRIT MUOLIS HSAUES FAS LE TEMFS C'é 
QNiIRER Les COUR O0 CHATEAU": GOT 14 
1556 PRINT UTHE YéfD OF THE FALACE, FRIS 
KY HORSES ARE LWéAITIMNG,., "ii GOTO 14 

13864 PRIT "DOUCE CAMPAGNE PFÉRSENMEE GE EF 
LEURS, IL ‘5 à UF FANIMEMLI GOT 16 
1364 PRINT MUOICI LE FORT CE CAlLéis.":G0 
T0 18 

1566 PRINT "YOU GRE ON THE CGOUVERSS FIER. 





M PRINT "HAT À GUIET FIELD ! PRETTY 
WIERE WOULD BE 4 TENDGER GIFT':GOTO 


AG FRIMT "é STREET OF LONCOW, à COSTER 
FONGER SELLSFLOUERS, M: GOTO 14 

1414 PRINT "LE RELAIS DE Lé JUMENT BLEUE 
. LA STATICNSERNICE GE L'EPOQUE,. LE FATR 
OM TRÉMAIL- LE. UN FAMMESL EST ACCRÔCHE 

À LA FORTE": GOT 16 

14264 PRINT "THE EUCEÉSELLER FROFOSE : FEN 
CILS, BOOKS, MAPS, MEUSPFAPERS.. . "4: GOTO 
35 THEH 1568 

RIT "LE CAPITAINE 


on 
[ax] 
— 
1 
[un 
té 
Ch di 

= 
. 
me 
1 L 
a 

1 TT] cr. 


jen 


GOTO il 
G THEM 


+ 1 


1526 IF C1 
Ag THEN ié 
iS4û Cia 
EMBARQUE , 


1 ELSE IF CIS 


SG 


Sé-SG6: PRINT "TOUT LE MONDE 
ON LEVE L'ANCRE ET...,":1M&="CI 


251: 











HMHER': GOSUE 641464: GOSUE 45468 
1245 JF Ciééch THEH PFRIN 
Es : SEUL ET L'EGQUTPAGE VOUS LOL 
E. Zésh:CiS= 
be fn” si THEN FRIFT ",,. VOUS HMOLUR 
REZ IQ !':IGOTO SA4G4 ELSE CaessS 
“Le H:CLé eh: GOT 2444 
iSé “eh THEN FRINT "THE CéPTéin I 
5 MC :GOTO 14 
iarG IF Cie THEN 14476 
1584 IF CIiSkéS4 THEH 1 6454 
I1T7E RSR ER PRINT MELERYEOCY IS ON 
BOARC AND, a 641868: 
Gi SUE CRTC Ces “ 2 PAIE] 
2464 HUSSAIIF C3 TÜÛRE 
LUZG ELSE NHRIS:RESTORE 24964 
2H FOR Iz=1 TO MNU:REMD VESCIH :HEXT I:FÜ 
FO I=i T0 HH:RESD NOBCIH MEET I:GOTO inf 


2476 DATA VOIR, PRENDR, SORTIR, OUVRIR,FERM 
ER, 4TTAGQU, DONNER, LAISSE ,DESCEN,MONTER, IN 
UENT ,ENTRER , DEMAND , ALLER, CHANGE , SOI GNE ,F 
ERRER, PAYER  APPFELE , FAIRE MONTRE ,FRÉPPE  L 
1RE,CUEILL MANGER, DORMIR ACHETE ,EMBR&S ,N 
CRD, SUD,EST, OUEST, SGUVER , REFREN 

234 DATA INVENT,HNORD, SUD,EST, OUEST, CONV 
OC, CHEVAL , FLEURS , ARGENT , LIVRES, REVERE , Cé 
PITA, BATEAU, PORTE , CHAMER , CHEMIN, BUREAD , 
FMOIR, COFFRE ,TIROIR,PATERE, CAPE, CHÉPEA, 5 
AUF-C,EPEE , BIJOUX, PANNEA,FISTOL, DROITE, G 
AUCHE , FATRON , EONAAI , FLAMBE , LäFLEC ,MIRÉND 
2448 DAT LOOK,GET, OUT, OPEN, SHUT ,4TTACK, 
GIVE ,LET , DOWN UP, INVENT ,IN,4SK, GO, CHANGE 
 TREAT , SHOE , PAY , CALL,DO0,SHOW,KNOCK , READ, 
FICK,EÂT,SLEEP,EUY,KISS, NORTH, SOUTH, EMST 
WEST , SAVE ,RESTOR 

2858 DATé INVENT NORTH, SOUTH,E4ST WEST, R 
ESIDE ,HORSE , FLOWER ,MONEY , POUNDS , EOU , CAPT 
AI ,EGAT,DOOR,DUKE, RING MAP, FERRET 

2560 IF Ci1%=1 THEN PRINT "BONAMI ETAIT 

MALADE ET IL MEURT...":GO0OTO Sé8au 

2518 IF C11%=2 THEN PRINT "FLAMBEAU ETAI 
T TROP LENT...":GOTO S46ü6 
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2324 IF Cii=dg THEN FEINT "HIRANOCOLE ET“ 
IT ML FERRE, IL SE CASSE UNE JAMBE..." 
:GÛTO LUE 
LSSA IF CHARTE OT 

BU TROF CE TEMPS F 
sad Ces: GOT 1846 

3444 IF Clilkié THEN PRINT "SIMNCE FRANCE, 
OU RICE THE SéfiE HORSE, HE CEXD TIFED 
OUT... TOC LATE'":GOTO S44gg 

SG14 IF Cire THEN FRINT "SINCE THE BEG 
IMNIFIG WITHOUT SLEEFIHG ! OU ARE CÜMFL 
ETELY EXHAUSTEC &t0 YOU SLEEF OURING 

THREE DATE TO0 LATE'":GOTO SG44 

SO24 IF CESS=H THEN FRINT MSINCE YOUR DE 
FARTURE OL HÈVE MOT ET. YOU FALL SICK 
HITH ESTOMACH CRétiPs, .. TOQ LATE !'":G 
QOTO SG 

SAS IF CHA: ZGG THEN FRINT "ro 
CO TOC MUCH TIME,.,.,":G0OTO Sang 


(le 
a 


Ju] 


HEH  FRIIT 


LES 
":GOTO SHE 


AUEZ FER 


en 


Œ 





USVE WASTE 


44 Ces: GOTO ia 

35864 IF HMS THEN 1485 

BS4S IF Ci? THEN 35164 ELSE IF C=ËS THEM 
2é48 ELSE IF CeS3 OR C=S8 GÜTG 3éS4 ELS 

E IF CSG THEN Géét ELSE GOTO 44164 

Dos IF HMS:Z1 OR MM&14 THEN PRINT "4 FRE 
AIERE VUE JE NE VOIS F4S CELA ICI":GOTO 
0 


2924 IF NMSIS THEN GOTO 166@6 ELSE IF NM= 
14 THEN PRINT "ELLE à ETE RAMONNEE IL Ÿ 
PEU DE TEMPS": GOTO 16 ELSE IF HMH=i7 TH 
EM 3554 


2534 IF NM =1S THEN IF Céx=ÿg THEN 3é56 E 
LSE IF CFe4 THEM 3434 ELSE PRINT "IL * 

é UNE CÂPE":GOTO i4 

3244 IF NM =197 THEN IF CS#=4 THEN 34534 E 
LSE IF CFA THEN SéS4 ELSE FRINT "IL Ÿ 

UN CHAPEAU": GOTO 164 

SSSG IF NF =24 THEM IF C4A=h THEN SéSé E 
LSE IF CSk:4 THEN Sé3f ELSE PRINT "IL 

ñ DES BIJOUX" : GOÜTO if 


3268 IF NM =£1 THEN IF C16#2:4 THEN 363 
ELSE PRINT "UCTRE EPEE EST PENDUE" : GQ 
Q 16 


(sl 
OT 
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À 


GSF8 IF Ni =i4 THEN IF CS4f=6 THEH ZE 
ELSE FRIMT "ELLE EST OUMERTE ET UOS CRE“ 


HNCTERS SOMT TOUJOURS Lét:GOTO 164 


2564 Cast FRINT SUR LE DGESSUS CO FEUT 
LOIR :" 
SST4 IF Ceket THEN FRINT "UNE COMUOCATI 






:1F Cal THEN 14 

IF C4=8 THEN FRINT "UN SGUF-CONDUI 
SOTO 14 

PRINT "RIEN PUISQUE VOUS AVEZ TOUT 
"GOT 164 

PRINT "C'EST PLEIN DE VIDE !":G0TO 


Lt 
Cr. a 
M = 


= 


 ! ù À ta 
+. = 
un m Er LL 


! Di 
+. À Cr. 


Li +4 Lit 
Ur 


A6 IF NMESI THEN 12466 ee dE PRINT "LA 
FUMEE VOUS EMFECHE LE MOIR,":FPRINT GE 
LEL COTE VOULEZ VOUS ALLER F':GOTO 164 
3858 IF HM=Z7 THEH 19848 ELSE PRINT "BEN 
IL N° À FRIEN & EN DIRE'":GOTO 16 
Séé64 IF NMS1S THEN IF CSgksi THEM PRIT 
"I TOLD YOU THE DUKÉE 15 IN HIS LIER4RT "3 
GOTO 14 ELSE IF NM=iS THEN PRINT "SOÛREY, 
HE‘5S IN CONFERENCE": GOTO 14 ELSE PRINT 
"HOTHING IS NOTEWORTAY "3: GOTO 164 
AG IF MM=G THEN 4216 
444S IF C=1i7 THEN 4436 ELSE IF C=z 
4144 ELSE IF CES OR C=ïs THEN 4Ë 
ai IF CSSési THEN FRINT "NOR OUT 
NY À RIEN À "is: GOTO 164 
4824 PRINT "HO ' HERE, THERE‘S NOTHIHG T 
0 "MIE: GOTO 4 
dus IF Hiisé THEM IF Cie THEH 41354 ELS£S 
E IF CZkei THEN 4116 ELSE C£k=i: GOTO 41 


= 
Dot] 


144 IF HM=ZS THEN IF Ci=h THEN 4136 EL 
IF CSA=i THEN 4114 ELSE CSk=1i:GOTO 4i 


HS IF HNMSEZS THEN IF CiG4<:4 THEN 4ii# 

SE CiG6=1: GOT 4124 

AS IF Ni=Zé THEN IF La=é THEN 4 EL 
A6 THEN 4114 ELSE CSksi:Cés=8: 

41264 


0 LE M LE hi Er 
Dax] T DOC 64 


Qt 
om 

— 

[an] et 
n 
Can 


4876 IF NM=ZS THEN IF CEX=# THEN 413@ EL 

SE IF CFAéiG THEN 41164 ELSE CFasi:Cos=é: 

GSOTO 4124 

SGSG IF NMSZE THEN IF Cé“=à THEN 4134 EL 

SE IF C?*éi4 THEN 4116 ELSE CrAsliCé#=û: 

GOTO 4124 

4164 PRINT "UOUS NE POUVEZ PAS Mig" CE 

LA":GÜTO 164 

45 PRINT "YOU CANCT MSsUES" THÉT" : GOTO 
14 

4114 PRINT "UQUS AVEZ DEJA CELé":GOTO 164 

4115 PRINT "YOUSUE ALREADY GOT ONE":GOTO 
14 

Hi26 PRINT MUOLS AUEZ RAISON, CELé FEUT 

SERVIR"':GOTO 1864 

4136 FRINT "D'ACCORD, MAIS OÙ F":GOTO if 

4148 IF CiiirG THEN 4116 

HIS IF MMSSE THEN CifFi=di Ci 1 :GOTO 41 


85 
aiéû IF NM=33 THEN CZü4=û:C11%=2:G0T0 41 


1FG IF Ni=3dg THEN C£letiC{is=s: GOTO 41 
[= 


1SU IF HMESS THEN CEZSshiCiisss 

Aie IF Cities THEN GOSUE é4666:FRINT " 
VOUS AUEZ MINE: GOTO IE 

4176 PRINT "GUEL CHEMWAL LUULEZ-MOUS sa G 
QOTC ia 

AAA IF Hess THEN 14544 ELSE GOTQ 4416 
4214 IF C ei THEN FRIMT "FRECISES CE 
LE LOUE LOULEZ Mag: GOTO 14 

SEE PRINT TELL ME WHAT YOU WANT TO MSN 
F:GOTO Ii 

ASÉR OIF € 
sig THE 
















s THEN ClU=6:G0TS 4520 ELSE 
6 THEN PRINT "VOUS N'ETES PAS LE 
AURAILLE":G0TO 16 
"UNE SRMEE DE CREGNCIERS VOUS 
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ATTEND DEVAMT VOTRE PORTE'":GOTCO 16 


Easi THEN CI FMSR : GOT 
: T "HE OO ODGIT LE F 


ir ü 
ER LES CONSOMMATI 


il 


_ 
Le 


G° 35; 26 ELSE 


ï 
ATRCN, VOLE 










ONE": GOTO 1 & 

Ségé IF Cri THEN 4816 

SRtE JF Ni=û THEN 42710 

SÉLG IF Nieig THEN IF Cid=i THEN SA? E 
Ë 


LSE C34%=1:G0T0 5098 
5625 IF NM<IS OR NM>20 








EN diué ELSE JL 
=fjfi-i 7: Qt JL GÜTE SDS SEE 
SOS IF Céhei THEH SHF4 ELSE IF Creil TH 
Eh Soéf ELSE Célisl:Céiek: CES=f: Se SG 
5036 IF CEX=zi THEH F# EL: IF Crési TH 
FH Siéh ELSE Cali: 0 ue She 
SAS IF CJési THEN 5 Ei IF Ciasi TH 





Le: ; 
EM SASG ELSE Cat ilCé=hi:CS=0: GOT SA 
Het PRINT "CE N'EST FPS Lés FEINE : "3: 


a. 


36 


Q 
= 
Q 


SGFH PRINT "MÉIS C'EST CEJS OUVERT" :GOTO 
f 
SH GOSUE 4444 


Ps 
Dot) 


T OUVERT": GOTC 164 
£ 


m © 
+4 04 +4 T7 


E AND HN 514 OF HM:Z6 THEN 4 


ei 
Us: 


+4 
1 
— 
a 
+ 
_ 
ll 
ren 
4 


F AND CEk=i THEN CE=# : GOTO 


NN NMNMNMNMTmDe 


En CN $ Qt co ti ee 45 


NTM NNANNEL 
Lo 


GS © 
4 
T 
1 
+: 
E 
F3 

1x [a 
CEN] 
es 
. 
+ 
TL 
m 
3 
[ER 
£ 
A 
E 


n 


2 MSIE AMD Cései THEN Céies : GOTC 
act 

Sos IF NES AND C4ke1 THEN Cdé=f:GOTO 
Ent 1 

Sert PRINT "MAIS C'EST DEJA FERME" :GOTO 
1ä 

2256 GOSUE éSGGG: PRINT "UOILA C'EST FEFM 
E":GOTC 18 

éGGG IF C=i7 THEN é24 ELSE IF C=i3 Of C 
=£t THEN 6656 
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sai IF C33%=i THEH FRINT "ALLONS, ALLOH 
GS... RESTONS CALME'":GOTO 16 ELSE IF C32% 
=ä THEN PRINT "COOL, EUDDY, KEEP COOL':G 


î 


OTO 14 
éG24 IF CS4A=4 THEN é@it 
éas4 IF Ci@k<ri THEN IMS="CIMPRIS":GOSUE 


Cr. 


AIG: PRINT "UQUS N'AVEZ PAS D'ARME ET 
ILS VOUS FONT ARRETER...'":GOTO S6864û 
ours GOSUE S4GG6:PRINT "GRACE 4 VÜTRE EF 

ee PRINT "ILS NE FEUVENT QUE VOUS REFÜ 
USSER" :GOTO ia 

SASE IF Cig=i AND Cié“=i THEN GOSUE 69% 

BG: PRINT "ILS VOUS REFOUSSENT":GOTO 14486 

Sté IF CiGé=i OR Ciéssi THEM CHA=CHA+IS 
1IME="CINSOINM: GOSUE é414@:FRIMT "MILS WVÜ 

US BLESSENT':PARINT MUOUS PERDEZ DU TEHFE 
ñ VOUS SOÜIGMER":GÛTO 18664 

SFA IME="CIMPRIS: GOSUE S4iGGs: PRINT "SE 

UL ET SANS ARMES ,":PRINT "VOUS VOUS FAIT 

ES AFRRETER...":GOTO Sa44g 

6544 IF MNM=G THEH 421% 

SSL IF Ci OR Cei THEN 4564 ELSE IF C= 

22 THEN 14876 ELSE IF C=54 THEN 67 

SSS IF CSS THEN PRINT "NE LUI OÙUNNEZ K 
IEN":PRIMT MUQUS RISGQUERIEZ CE LA VEXKXER" 
:GOTO 14 

SES IF NET OR NM=IG OR NMSZES THEN 1156 


fi 

GS IF CESk=i THEN PRINT "NOH 1 VOLS KI 
QUERIEZ D‘'EN ALOIR BESOIN":GOTO 14:ELSE 

PRINT "HO ! FERHAFS IT'LL BE USEFULL LT 
ER": GOTO 16 

Le NM=ZZ THEH IF CFhérl THEN éédgf E 
=£:GOTO 65 

ne THEN IF Crkéri THEN éégft E 
:GOTO 654 


Cr. 
RH] 


D 


ni On 
+ 1 Cr 
[4 


2: 


l 
FU : 


Fi 


RE 


Ci 








IF 

E F7 
D ELA 1F Hess THEN IF Cignéri THEN 6646 
ELSE Ci4r=2: GOTO éé54 
ST IF NHEZS THEH IF CSaési THEN éég8 E 
LSE Ces: GÜÛTO 64654 
SG IF MES THEN IF Ci = AND Cissen T 
HE Sédf ELSE Cie: Ci : Ta) 
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éélé IF HNMEZES THEN IF CI1Z4=6 THEN ésd4i E 
LSE C134=8:GOT0 4456 

Sé24 IF NMSIi4 THEN IF CiSx=h THEN éé4û E 
LSE CIS-=G: GOTO 66564 

854 PRINT "CELA ME LES INTERRESSE PAS" 


GOTO 18 

Sé48 PRINT M+" ? POUR L'INSTANT VOUS N° 

EN AVEZ F5 !":GOTO 14 

éé4s PRINT Mé+" 7 IN THAT TIME, YOU HAVE 

HOME" :GO0TO 18 

4658 PRINT "CELA NE SUFFIT PAS... "PRINT 

"POUR EPONGER VOS DETTES":G0TO 14 

6874 IF NM6>S THEN 4558 

Sé88 IF CESe=t THEN PRINT "YOU HAVE ALRE 

ADY GIVEN FLOUWERS":GOTO 16 

467? Bét=1i THEN CSSel :IMé=IM#+"P":G 

OSUE 44140:PRINT "THEY/VE TURNED TO FADE 
": PRINT CRETARY 15 HURTED" :GOTO 15 

4748 IF C i THEM C: LIMS="CIMEGF" : 

GOSUE éd1G@G:PRINT "GRATEFULL, SHE GIVES 

YOU 4 TENDER PECK. THE DUKE 15 WAITING F 

As ia 

























& er 1 ; 
FH IF Dis Cake i THEN 9144 € 
LSE 4i45s 

Ai IF NE THEM AZI ELSE GOTO {4454 


IF 


Î 
C=g OR C=? THEN &546 


3 
né 
Œ 


ol 
ni 

n TT 
Rens 


= © C: 

‘ ln É  [ si THEN FRIMT 
MUQOUS He AUEZ Es .": GOT 14 ELS 

E PRIT YOU HAUE HO HORS E" "iGOTC IE 

FPASG IF Cris Ati CEST D © THEN FE 

INT "HO, PAS à L'INTERIEUR CG'IME PIELE. 

MsGSOTO i ÿ 

Fadf IF Cris | AtiD C = THEH FH 

IT HOT IMSTC F QC 5 THERE IS NEITHE 

F ETAIRCAGSE CR HC IRSENM: GOT 14 

FES IF Ces OR CesSs di Miel s THEN FS 


—) 

en 

ds — 
Co Um EX 
‘1 

© 

















Aie EL CZS 


ét AM JE= 16 33 THET 





ne {il JE ! AT (EA ne DE ‘1 F ; VO d RAS Fe 
: : SE PRINT "é CHEVÉ 


Fret 
a 
Éd 
mm 
+. 
L 
T 
en 
ni 
e= 
ee 
| 
I 
+ 
= 
2: 


":GOTO {ui 
PRrR IF CRSSS AND CCréet NO VESS OUR C 
réel il LE] 4 THEN PRINT PEUT Yi 8FE 
ALRESDY MitiF Be THEN FRINT "UéLETHG" 
:GOTO 14 ELS PRIT MRIDINSM: GOT 14 
POS IF User AMD CESkei THEN Css: PRIM 
T EH FIER, MARCHEZ Fa) ATEMANT " : GOT 14 
AFO IF MES él LAS 4 THEN Crée: FRIT 
LELL, YOU CAN BALE HOW: GOTO 14 
SRE OTF VB SHC C =) THEN Craie i FAI 
HT "EH BIEN TÉUTTEZS HMAIMTERNSHT  : GOTO 14 
Féif IF Vi NO C sa THEN Créez { :FRI 
MT MLELL, OU CA TROT HOW: GOTO 164 
en IF C=35S THEN Féa4f 
SGA IF CASset THEN FRIHT "LE CAPITAINE 
He EST FPS Lé FOUR VOUS EN CGOMMNER L'AUTO 
RISATION":GOTO 14 ELGE PRIT "IL FAUT Fé 
VER LE FRIE®:GOTO 14 
Fédf IF LC A THEN FRINT "THE CéPTAIM I 
5 HOT HERE TO GIVE THE PERMI SSI OU CG 
OT 14 ELSE FRINT "YOLi MUST PAY THE FRIC 
E'":GOTO if 

SG 46 LITHMOOE nds 1,94H,1,25:CL 
POSSEDEZ :":1=û 
Gi IF Ciel THEM FRINT "Lé CONMOCÉATI UE 
DE LA REIME":I=1 

£ IF Lei THEN FRIAT MUR SURF -COMOUIT 

































PRIT  MUIQUIS 


‘ 
ue 


(2 
L 


RON] 
[RE] 
Domi 

fl 
ua + 
n 


Cikei THEN FRITHT MLES EI JOUKMiI= 


NA | 
r- 
+ 
Dot] 
= 
"A 


C7H=1 THEN PRINT "VOTRE CAPE'":1= 


9 ee Que Où 1 CG 


pce 
on 
mt 


“UE 


IF CSési THEN PRINT "UOTRE CHAPEAU" 


g en 
cr. Î 


Lot] 


IF Cifési THEN PRINT MUOTRE EPEEM:I 


is THEM PRINT Ci" FISTOL 


DERRS 

= +] 
AC] 

Lun 

I 
nel 
[t 
= 
Li 


mi où cu 
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SUSn IF CIS:CH6 THEN PRINT CiS%4;" LIVRE 

S'sI=i 

S@7& IF i THEN PRINT "ATHOS, PORTOS 
HAT Z 


SIG IF 

A FEIME": 

Si JF CSéisé THEN PRINT "LH BOUQUET D 

E FLEUREMIT 
S1SA IF C£rFhei THEN FRINT "#4 RESIDENCE F 

ERMIT' IS 

SiS4 IF CEd4=i THEN FRINT "4 Mar CF LOWD 

OM" 3 I=i 

Sin IF CiZssi THEN FRINT "LES FERRETS CG 

E LA REINE'":1= 

SISG IF Ciikés4 THEN FRINT "UH CHEVAL": I 


=i THE PRINT "Lé BAGUE GE L 









Siéf IF I=4 THEN PRINT "JAI BE FOUILLE 
F VOTRE GESACE.. ,.":PRINT "JE NE VOIS RI 
ET “ 


m1 


ut 


IF INÉETYEZ="" THEN 8174 ELSE CALL 34 
: CALL 42567 :WINDOU #4,1,44,22,25:CLS: 


CCE ES 
D Dis 
4 
nn zx 

Le 
or en 
[es 
en 
[ax] 

i 7 
[a 
il 
re 
DS 
: 4 
Æ 
m 
Lex) 
on 
LE 
Hot] 


Où où Où Gi 
1 AN © Oo — 





SSI KH=-iCéSi-iaiCrég AND C<1Si-GæeiCrle À 

MD CiStai-gkiC:S4 AND Ci -Ge(Cs3s 

SS£24 Or KH GOTO Sé14, nr 2 5644 
SESU IF Crései AND CS "ET 
SI ON ENTRAIT CHEZ VOUS À CHEVAL," L:FRIN 


T "QU'EN FENSERAIT VOTRE TAFIS FERSEH FT" 
:GOTO 14 
SSa4 IF Créei AND CSSS THEN FRINT AN 
CG WHAT ABOUT YOUR FERSAN CARPET,, "US: PRIN 
"IF SÜMEEOCY és RIDING IN YOUR HOME 
16 


= 
i 
© 
+ 


in 


Il 
Ti 
+ 
— 
Cr. 


:GOTO 1846 

IF Case THEN FRINT "MAIS VOUS ETE 
Ji À L'INTERIEUR":GOTO if 

INT "BUT YOU &RE ALREADY INSIDE": 


CN CM. 


tai THEN PRINT "CONS QUELLE © 
Fr: GOTO 16 
RINT "WHICH DIRECTION F':GOTG 14 





T 


Qù 4 0 Di Cù Qi où 
UM JO 
DO RmOm a mn © 


noi 
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cu 

[a 
+ 

ba 


ER UmE LE 


Dar 


PRIT MCSEST PRIVE, IL EST INTERGIT 
ENTRER": GOTO if 


pe) 


né] ON C OGOTO SC , Ses , Se F4, ET GE 
un IF Créx=i THEN PRINT "PAS à CHEVAL, 
PR 


CIMT "UN PEU GE TENUE TOUT GE MERE !" 
if 

EE Hé té THEH PRINT "ATTENTION 1: 
"LES CREANCIERS SONT TOUJOURS LA... 


."{GOTO ii 
éd GOTO ESS 
SéiA IF Crései THEN FRINT "CITES, ,":PRINT 


= 
ps 


ME FRENTRE PF4S 4 CHEVAL CHEZ LES GEN 

SE": GOT 164 

Sééf CHAR CEA+ LE: GOT SSSE 

Sér4 IF CSk=8 THEN PRINT "ALLONS, ALLOMH 

= CsPRINT MEET Lé REIME ETAIT EN GéLétiT 

E COMPAGNIE Fi: GOT 164 

SéS4 IF CiZksi THEN CaeC+ié: IMAE="CIMIT":G 
OSUE é44GG:PORE 42526 ,1:FRIMT MONSIEUR 

C'ART AGAIN UC PRINT MUQUS AVEZ REUSSI MOT 

RE MISSION !'sPRIMT "JE VOUS SERAIS REC 

MMA ISSANTE À JAMAIS MI GOTO SAGGE 

SSFA IF Cazkei THEN PRINT "JE HI PLUS 

RIEM & MOUS DIRE.":PRINT "UQUS FERDEZ VO 

TRE TEMPE": GOTO 14 ELSE GOTO 8554 

SFAaG IF Café THEN FRINT "OH 1 SHOCKING 
UUsPRINT "PERHSPS THE DUKE IS BâRE !":6G 

OT 16 

SPIN IF Ci=i THEN PRINT "EORRY, I CN 

se TELL YOU AMYTHING MORE. YOU HAVE NOT 

Le SPAREMICEC+ 1 é: GOTO 14 ELSE SSS4 

IF CéiZ4 AND CÉiZ7 éMD Cér£9 THEN 4 





La] 


, 
A 


IF CE THEN fé ELSE IF C=27 THEM 


La A Gt + 
me Gi 
Laon] 


DE] Z Um 


IF CSi=4 THEN PRINT "YOU RE VERY 
ILITE, MUSKRETEER !':GOTO 18 

IF NMé>18 THEN PRINT "SCORE, I CAN 
UE YOU THAT"':GOTO 184 

IF CESX=6 THEN PRINT "SCORERY, MONSIE 
, 1 CDON°T EWOI YOU": GOTO 16 


“oo 
LOU Thiee Lu] 
mr ut DO 


[us 
A 
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FUSG PRINT "OK, HERE &RE THE FERRETS UE 
RIFIT "PLEASE, GIVE THE QUEEN MY GEST FEG 

ARDESNICIZAS= 1): GOTO 14 

FHSY IF Miiésie THEN PRINT "YOU DONT HEE 
D THAT": GOT if 

IF : THEN T1 

IF l 14456 

5 CrgeeliCiiesciie-Si PRINT MHERE IS T 
HF": GOTO 16 

IF HHiié THEN FPRIHT MI HAME MOT THé 

THING':GOTO 14 

IG IF Creil THEM 4115 

£ EPA: PRINT MHERE 15 YOUR RESIDENC 

CiPRINT "THAT'S FREE.,":GOTO 18 
Crlé AMD CES1 AMD C£:23 THEN IF 

THEN FRINT "4 L'INTÉRIEUR CG'UNME F 

SFRIAT "ON NE FEUT ALLER HULLE PFéf 
T" GOT ig ELSE PRINT "INSICGE 4 ROCGM THE 

RE 15 HO lé TO GO": GOTO 164 

FPOIU IF Cie OR CH38 THEM IF Ciel THEM 
FRIHMT "GANS QUELLE GIRECTION F':GOTO 14 
ELSE PRINT "WHICH DIRECTION F':GOTO {4 

FPSEG IF NMSEF OR NMHi369 THEM PRINT "GE QU 

EL CÜTE ?':GOTO 14 

FISG IF NM=SG THEN IM$="CIMESG" : GOSUE é4 
1GU:FRINT MCE SONT LES GARDES C0 CRDI 

AE "ILS SONT BIEN ARMES !°:GOTO 1 












Dot 


29 IF Ciési AMD Cie THEN PRINT "FA 

she de LES CONSOMMATIONS" : GOTO 164 
IF Cié=i THEN PRINT "IL HSY 4 PLUS 

PER SONNE":GOTO 184 

FSsg IME="CIMESC": GOSUE 4144: PRINT "CE 

SONT ATHOS, FORTOS ET ARAMIS. "PRINT "£F 

RES EXPLICATIONS, "M: PRIT MILS CECICENT CO 

E VOUS SUIVRE" :C1é=i: GOTO 14 

19448 IF MM=G THEN 4216 

1@G14 IF C=zi THEN 1448356 ELSE IF C=£2 TH 

Er 1647 ELSE IF C=3SZ THEN 16174 ELSE IF 

=SS THEN 14246 

G2G GOTO 4614 


UNI “3 
[A 


“Mi € 
cn 
po 


AT 


i@ 


— 268 — 


18836 IF NM<>7 AND NH<32 THEN IF VE=S TH 

EN £SS4 ELSE 4i&@ 

14648 IF Cil#=4 THEN éé4ü 

1G4S4 IF Ci“; THEN PRINT "CE N'EST F4S 
LA PEINE : VOTRE CHEVAL ESTEN PARFAIT E 

TAT':GOTO 14 

184éG IF Cil si THEN Cif=i:GOTO 16474 E 

LSE IF Ci1%=Z THEN CZÿ#=i:GOTO 16474 ELS 

E IF Ciik=s THEN C£i=i: GOTO 14474 ELSE 

Czas=i 

18474 Cil=4:IF VE=S THEN PRINT "C'EST F 

AIT : VOTRE CHEVAL À REINTEGRE 54 STAL 

LE":FÜR I1=f T0 ZGGGIMEXT I:GOTO 16644 

144SG PRINT "VOUS FOUVEZ FPRENGRE UN AUTEÉ 

E CHEUAL':FOR I=1i TO ZAGG:MEXT T:GOTO 16 

ga 

1UGTE IF HMéizé AMD MMS AND NMESZES THE 

HN PRINT "ICI ON ME CHANGE QUE OÙ EOCN 4RG 

ENT Ol CES CBJETS GE VALEUR": GOTO 16 

141484 IF MM=ZS AND Chef OR CNET 0r NM 

sé) ANG Cie THEN 469 

1U1IR IF HMeZé AND CSkez THEN FRINT MJE 

QUE on Al CEJS CHANGE CONTRE DES FIS 

TÜLES" I: GOT O 164 

1HISA IF NMezs THEN CiasgiCige=r 443 PRINT 
"UOICI FER PIS STÛLES EN ECHANGE": GOTO 1Ë 

iWi44 IF Cidézi THEN FAIT "OM NE FELUT C 

HAFIGER QGUSURHE SEULE FOIS": GOTO 14 

1HiSh IF CisiaSA THEN jéfsf 

1Hié PRINT MUOICI 43 LIVRES AMGLAISES": 

Cigésiilitesgii Ci ee : GOTO A 

té THEN 41GS 

14i1S4 IF Ci: THEN FRIMT YOU HAVE LE 

EC CHANGE “OUR HORSE NI GOT LE 

IHIFE CiiseéiGOSUE SG: PRINT "OE, “OU 

GT F4 HEU HORSE NS: GOTO 18 

IF HMESS SUD NMESZ THEN 41684 EL: 






















ï 
1 








E 





DIS IF x 
MICI MOULES H° 
E': GOT 4 EL 
LP Ets GOT CO 


“ei THEN FEINT 
E Un AFÜOTHICAIF 
RIT ITS NOT 4 &FÛTHE 
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14516 IF C114<31 THEN PRINT "POURQUOI # 
IL EST EN EONNE SANTE" :GOTOQ 16 

16524 IF C134=4 THEN 168564 

14534 IF CISEReue THEH 16866 

14546 CI1A=S:CISASCISA-LAG: PRINT "IL à E 

U CE LA POTLON MAGIQUE . CELA VOUS COUTE 
204 FISTOLES":GOTO 164 

11464 IF C£È3S THEN IF CSSX=1 THEN FRINT 
"VOUS N'ETES FAS CHEZ LE MARECHAL-FERRA 

NO": GOTO 184 ELSE PRINT "IT*S NOT à BLACK 
SIL S" eue 1 

11416 IF Ci1#<54 THEN FRINT "POURGUOI 

IL EST BIEN FERRE" : GOTCO 16& 

11NZ2G IF CIS THEN 16856 

11436 IF Listen THEN 16féf 

11444 LilA=S:CISESCISA-EGGIIF VES=I1S THEN 
FRINT “VOICI UME OCCASION PRESQUE NEUVE 
MStELSE FRINT "UOILA 5 IL À DES FHEUX NE 

UFS" ; 

11658 PRINT "CELA VOLS COUTE Z@@ FISTOLE 
":GOTO 16 

1150 IF C1 AND CSS4= 
115 IF CIS#=6 AND CSSx 

IF Csi OR Ceir 

IF C=23 THEN 11576 








OR Créez 





‘k CrErezss ND 
C24r =) OF PRINT "THAT" 
5 DONE'":GOTO 
11594 IF C= 
“eh OR Ce3r Le PP 
HAT THING F" :GOTO if 
LISE IF CSS AND Ci11=S5S THEN PRINT "C° 
EST FAIT':GOTO 14 ELSE IF C=SS8 THEN FÆRIH 
T "PODIRQUOI FAIRE 7':GOTO 14 
11564 GOTO 94416 
1inF4 IF CiS4zi THEN FRINT MUOUS AUVEZ DE 
Jé PTE": GOTO 14 
LISE IF Ci THEN FRINT " 
RC GQUSIL FSUT 
De L if 


 Ce2F AND C34 
PRINT "FOR W 





ST AU PFéT 


ÊTES 
PAVERS: GOTO i4 ELSE IF Ci 
1: 


el 





Dés: CI Est: PRINT "LE COMF 


MERCI":GOTO 16 

HEN 12826 ELSE IF C=34 OR 

of 

#=1 THEN PRINT "CE N'EST PAS 

> APFELER" ELSE PRINT "DON'T C 

ALL, YOU LOSE TIME":GOTO 14 

12826 IF NM<>31 THEN PRINT "PERSONNE N'E 

NTEND":GOTO 14 

12036 IF CiéX=6 OR C1S4=1 THEN PRINT "LE 
PATRON N'A PAS LE TEMPS" :GOTO 15 

12048 IM#="CIMZ3DP":GOSUE é4100:PRINT "U 

OS éMIS ONT EU POUR 58 PISTOLES":C17%=1: 

GOTO 18 

12954 IF MM<>1Z THEN IF C=34 THEN PRINT 

“CHUT ! LES CALAISIENS FONT LA SIESTE !" 
:GOTO 18 ELSE PRINT "HUSH ! THE CITIZENS 
HAVE À NP !":GOTO 16 

12060 CISAS1:IF C=34 THEN GOSUE é4084:PR 
INT "BONJOUR, SI VOUS VOULEZ TRAVERSER" : 

PRINT "IL FAUT PAYER 346 PISTOLES !":GOT 

O 18 ELSE PRINT "IF YOU WANT TO CROSS TH 

E CHANNEL":PRINT "YOU MUST FéY 38 POUNDS 
!":GOTO 18 

12588 IF C=i5 THEN 12928 ELSE IF C=20 TH 

EN 125484 

12519 GOTO 4614 

12528 IF NMC>i1 THEN PRINT "DITES DONC, 

MOUSGUETAIRE":PRINT "VOUS ETES TRES IMPO 
LI !":G60TO 18 

12936 CH AS: CSZASL PRINT "IL Y Ua DE Mé 
VIE !":PRINT "ALLEZ DEMANDER AU DUC DE 
EUCEINGHAM": PRINT "DE VOUS REMETTRE LES 
FERRETS. " 

12538 IF INKEY#="" THEN 12935 ELSE PRINT 
"UOUS AVEZ 3 JOURS POUR REUSSIR. VOICI 

LINE BAGUE QUI VOUS FERA RECONNAITRE. "à 

GOTO 18 

12544 IF NMSH11 THEN PRINT "YOU HAVE BET 

TER TO DO TO BE POLITE !":GOTO 18 

12990 CHIX=1: PRINT "GOGD MORMING, MONSIE 
UR (':PRINT "WHAT CSN I DO FOR YOU 7":80 

TO 14 






= 2 - 


13446 IF HM=G THEN 4214 

15414 IF C=26 THEN 13448 ELSE IF C=31 TH 
EN 12484 ELSE IF CES THEN 13484 

15426 GOTO 4816 

15494 IF CSi=4 THEN FRINT "YOU &RE IMFO 
LITE, MONSIEUR !':GOTO 14 ELSE IF HMiilté 


THEN FRINT MHAMUE YOU 8H OTHER THIHG TG 
SH 9": GOTO 164 

15654 IF CSZX=G THEN éé45 ELSE CZS=l:PR 
INT "HAVE YOU SÜMETHINGS TO ASK ME ?7":GOT 






IF CiZa=f AND NHéié OR CiZke=i AD 

4 THEN FRIMT "CELA HE VOUS AUTORISE 
PAS 4 ENTRER" :GOTO LE 

SGFG IF CiZ=6 AND C£kei OR C12*e1 AND 





C THE FEINT “YOU FOUUEZ PASS CS 
F GOT 14 ELSE PRINT "UOUS M'AUEZ PAS 


CE QUSIL FAUT':GOTO 164 

IF CEFa=h THEM FRINT "YOU HUE NOT 
PAPER... TOC LATE !":GOTO 564646 EL 
INT "THAMÉ YOU, SIR !':GOTO 14 

JF ne THE 4214 ELSE IF Hé T 
A=l THEN 4164 ELSE 4145 
ces THEN 1235354 ELSE IF Ce4 THEW 


(el 


Lx TT 
= 
LR 

Rx] 
— 


i GOT Shi 

1& IF CiZ%=i ND C6X>224 THEN PRINT * 
TROP T4RD ! Lé REINE EST EN PRISON ET... 
VOUS ALLEZ Lé REJOINDRE. ..":GO0TO Sang 
15544 CSU%=1: PRINT "ENTREZ":G0TO 14 
ie IF Cage THEN PRINT "THE DUKE HS 
ä MEETING, DON'T DISTURE":GOTO 18 

13564 C30%=1:PEINT "COME IN":GOTOQ 18 
14804 IF NM=û THEN 4214 ELSE IF C£Hi7 TH 
EH 14620 ELSE IF Nzé AND Cif=4 THEN 412 
[2 








G IF HM=Ss THEN FETNT ir C'ARTAGHE 
L EST DU PLUS HAUT INTE-RET QUE WOLIS x 
EUTES FE REMCONTRER RéPFI- CEMENT.,. SIGHE 

LUITRE REINE": GOTO 18 ELSE GOTO 14446 
194424 IF CÉHES AtD CErSS THEN 4616 ELSE 
IF HMSSEZT THEN 144<f 
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14656 IF CSS THEN FRINMT "Lé JUMENT EÉLEU 
E 2 ":PFRIMT "CLINIQUE VETERIMAIRE, 4 SUD 
"iGOTO Ii ELSE PRINT ICI, ON FEUT FREFAR 
EF UF CHEVAL "16010 if 

1SGéG PRINT "CE M'EST FPS THTERRESSAIMT 
ji 14 





AND HMCSE THEN d1ëé 
AND HMALsS THEN 4145 

: THEN CRéx=l:GOSUE 4806: FR 

BUUIQUIET UOUS AUEZ t'iGOTO 





JSTiG IF 
IASCE ÏÎF 
LAIT SGLIEL 
if 
LAN IF Cars 
IF "HERE : 
14546 GOT 94416 
1SUAU IF Cite THEN IF CSZéei THEN FAIT 
MCE HÉEST FAS UN RESTAURANT, ICI": GOT 
1H ELSE PRINT YOU ARE HOT IH à FESTAURÉ 
HIT, HERE'":GOT0 14 
1Sû1a IF CiSéin THEN 1 645 
1SHEY CiSaeCi él ai CAS PRIT "AH TO 
LU FEEL BETTER":FAINT MELIT YOUR PURSE LOS 
T ii FONDS": GOT 16 
1SSa& IF CETZS THEN IF CESéei THEM FAIT 
MCE H°EST HI LE LIEU, HI LE MOMENT": GOT 
OO 14 ELSE PRINT "IT'S HEITHER THE FLACE 
Of THE TIME'":GOTO 14 
156 IF CFE: i THEN FAIT "YOU RE WOT 
PROTECTED AGAINST COLD, YOU GET 4 SÛRE T 
HARCÉT, .. TOO LATE !'':IGOTO SEE 
15e CrréeliPRINT MELERYBOCY IS REST HO 
HW": GOTO 1 
été IF CE2S AND Cérs7 THEN 4616 
Léhi4 IF Hfie6 THEN 4214 ELSE IF Cissg T 
HEN ji é47f 


SIGOSUE SGA: PR 
EUUQUET l'iGOTO 16 




























24 ELSE IF HMS 
JAÉZ THEN 16454 ELS 
de FAIT MHERE I YOUR 
Z FOUNDS" :GOTO 16 

LéGSE IF NM £5S THEN 16644 ELSE IF CISké 
à THEN 1é4S4 ELSE CiSssCi és: CSé#e=s: PRI 
NT MHERE 15 & PRETTY BOUQUET FOR 3 FOUND 

S':GOSUE 44046: GOTO 16 


=, 273 = 


. Qi Cr. 


RINT HO MOI GONST SELLE YOU THäT” 


F 
Î 

GO FRIMT YOU HAVE NOT EMOUSH MONEY": 
Ë 


ins ue be 
ER 
BEC] 


2 
(Ts dt 


4 FRINT MUOLS NOAUEZ PLUS ASSEZ C'éR 
T'IGOTO I 

44 PRIT "NO ENGLISH MONES IN YOUR FL 
E":GOTO 14 

GS FRINT "MUCOTRE BCURSE EST VICE":GOTO 


TDi 
Cr 
=. 


Zee Cr QU Ce TM TS 


LE 
M 
À 


Fr Tr 


re 


1 THE FRINT 
FALLOMS, SO Of: tIEUX 1 GÛTE 14 ELS 
E PRIMT WELL, DONCT GIVE. Wé TO LAUGHTE 
F !":GOTO 14 
145164 IMB="CIMISPE: GOSUE édi 46: PRINT MEL 
LE LOUS ENTRAINE DAMES Gé CHAMBRE, Mi PRI 
MIT OMUOQUIS PASSEZ UNE FOLLE HUIT CG'AfhiOUR,, 
PRINT MS, TROP TéRD l'O GOTU SAGE 
1FG44 GOSUE 1FFAG:IF VEssé THEN 17266 
17346 GPEMOUT "Te PRINT HT EM: PRINT 4%, 
ea Cr LE PA , 


in 17 












= 
De 
Pa. te 


18%. 


“J 1 Où 
DOME 









Cat 
RP 


SPRINT 
END : LS:LOAD "D':IF PEEK(é: 
EN 17 200 ELSE RETURN 

ESTORE 45 on 1,1,8,19,2,-7,2: 
,0,15,8,-1,1:FO0R 151 TO 18:READ F 
2:56 SOUHND 17,F1,D,15,E,,1:SOUND 18, 






HD, 3,2%E: NEXT : RETURN 

AT 47,28,1,56,47,28,1,56,47,28,1 
56,0,75,47,56,0,956,45,28,0,93,47, 
,47,56,0,56,53,26,1,63,53,26,1,63 

,1:63,53,28,1,63,80,96,0,95,53,9é, 





Aus a 
Et on 


D] 
CD 


Hi ITTE 

4 ii 

Hi, 

LSE I 
ï 


Ju 


F1 


E 
i 
= 
1: 


4 


Les 
pus 
Der 


A Ci 


ji 
ii 


or Es 


THEH 
£4itt 
ali 
17 OR 
FM I=z: 
C=S OR 


“ 


PE 
PEERCé 
1,48, 
644% 

LE INK 


4 


LI+RIGATELSTRES 


.… 


1 
RUN "FIN.ERS" 
STRÉEE CH SIN 


iM$=: $=" 
>-1) 


IF Casir 


CTI ART GATEL IE, L 


THEN mn anne 







F 
= 


C=2i Rbls ii 





IF {Ca AND Cie OR. Ce Cz 
AID CSSksii OR AC € (al 





CIF: 


é AND C36#=2) 
IMS=IME+" Ep" 

LORD "D':I=PEEK(6S 
IF ÉCei OR CES OR C=é 
C=21 OR C=28) 


C=ZE OK 
GÜUTO 64444: ELSE IF 


AND CE 


(C=37 


CEST 
IULT. Ÿ 


TE 
AND 


= 


rC=Er 








l 

C=r OUR C=is ' Ci OR C= 
Cæesi OR Ces Oh © C=385 40 
HEH I=2:GOTC 6444 

IF éC=dg OR Cai ( j OR C=iz UK 
OR C=idg OR C=i £4G OR Cars OF 
OR Ces OR Cez$ 4 39 OR Ces OK 
OR Cesé OR Ce37i AND 1£5d4 THEH 1=4 
&4444:ELSE LOAD IME 

IE GG: IE 1,64: INK ee = 
351: CäLL 32587 :1INE 4, PFEEKRÉÉSS SE à 2: IH 
ERÉSSSS 1 1: INK 2, PEER (45822) ? INK Z, 
29233) :EÛORDER FEEKSSSS27) :UMINOOL #6 


LE £a CLS: RETURN 
CLS:PRINT "METTEZ LA FACE 
E&="":UMUEND: CLS: GOTO é41464 


ssl :UHI 
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PROGRAMME FIN 





anGg IE a TL 
IR B,&slr sINE Z 34 
&i:C azses! LBORDER £i ä, 
EEK :INK 1 ,PEEKÉéSSS .FEEK 
&S; S,PEEK(SSS28) :RES STORE 4046: 
=ÿ B,-S,8:ENV 2,1,-15S,0:ELSE Sagl 





bo 


OR I=i TO & 
READ F1,01,E1,F£,D8:IF Fl=-1i THEM 
LSE IF Fiz-2 THEN I=£2:Esi:GQT0 44 


ee, 
ao 


or 
T 


DE) 
CCE CIE 1 
‘ 


2: x] 
pes 
en 
ax 


GO IF IMEET#HEEU" THEN END ELSE SCOUHO 
Ci,15,E1:S0UNC £Z,FZ DZ, 4: GUTO 444is 
RESTORE SUASRIMNERT:IF Fiz-: THEN 4 
ELSE IF Ezi THEN END ELSE RESTORE 4 
:GOTO dfñie 
elle 


Do 
ès 
A 


Mi 


pe 
= 
Dr ns 


AL 
re 
— 


EE LL DE es LE © EL Le m- TT RL 
Us: aca 
© 
Le 
11 


es 
pe 
BE] 
e 
© L 
“i 
— 
a 


M 
Dot 


3,24,14,4,44,14,2 
ü 1,46,14 


— LS De bee pe 
Del 
ne 
Êù J 


+ JL Mu 
N: 


£- 
+ . 
— Li 


RE 


Lim 


Fi 


ü 
rs = 
CP 


Mi 
JL 
RE 


2 


ut EE 


EL 
+ 
1 = cf 
E 5 
j- 
… +. 


Fes 


D 
Ut Jr Le 
ti t ne " 


bis 
Dot Eu ee Je : 


en 
be 


LI 

4, 1%; 
7,14,24,14,8 
4856 DATA 88,14,24,14,8,63,14,48,14,8,5 
3,14,34,14,1,68,14,8,14,2,88@,14,28,14,1, 
s8,14,4,14,2,47,14,24,14,1,44,14,22,14,1 
.88,14,24,14,1,63,14,27,14,1,53,14,38,5é 
.1:68,56,-1,1,1,1,1 
qJûñég DATA 32,1 34,14,6,48,14,Z 
7,14,1,53,14,0, 124 14; 1,80,14, 

14,2,53,14,27 11472563; 14, 

i i 


tr 
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Ce livre vous guide pas à pas dans la 
réalisation d'un jeu d'aventure. 

Vous trouverez, en première partie, les 
constituants d'un tel jeu, puis la mise en 
place du scénario, du plan et des conditions, 
suivie de la réalisation du programme BASIC. 
Pour finir, le tout sera agrémenté d'une 
partie son, largement commentée. 

Tous les exemples fonctionnent sur 
les Amstrad CPC 464, 664 et 6128. 

Un jeu d'aventure nécessite bien sûr 
l'utilisation d'images graphiques en grand 
nombre. Pour vous faciliter la tâche, vous 
trouverez, en seconde partie, la description 
complète d'un logiciel d'aide à la création 
d'images doté d'un compresseur/ 
décompresseur d'images graphiques, qui vous 
permettra un gain de place très important 
pour le stockage de vos images sur disquette. 

Ce livre se termine par le listing complet 
d'un jeu d'aventure dont la solution n'est pas 
explicitée. 
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